Problema con la Fecha

[geovany]

No es necesario hacer ese decode solo tienes que comparar directamente las 2 fechas lo que podrias hacer es declarar una variable tifo fecha y luego compararla ocn la actual

Var
Expira :tdatetime;
Begin
Expira := '10/10/2005';
If Date > Expira Then
Begin
ShowMessage('La Licencia ha expirado');
Application.Terminate;
En;
End;