Avisar antes do vencimento

1. No evento OnCreate do formulário principal (onde está o TEvAppProtect) você compara a data atual do sistema e data final de liberação do sistema (propriedade DateEnd do componente).

2. Se a diferença for menor que 5 (supondo que você quer avisar com cinco dias de antecedência), então você emite uma pergunta ao usuário "Faltam menos de 5 dias para a aplicação bloquear. Deseja liberar agora?"

3. Se o usuário clicar em "sim", então você faz uma chamada ao método ResetLockApplication do componente.

4. O código vai ficar assim:

 

procedure TForm1.FormCreate(Sender: TObject);
const
 Msg = 'Faltam menos de 5 dias para a aplicação bloquear. Deseja liberar agora?';
begin
  if ((EvAppProtect1.DateEnd - Date) < 5) and
    (MessageDlg(Msg, mtConfirmation, mbYesNoCancel, 0) = mrYes) then
    EvAppProtect1.ResetLockApplication;
end;