Problema con la Fecha

[ramonibk]

Hola a todos.
estoy realizando una pequeña aplicacion y deseo que esta aplicacion solo dure un tiempo determinado y cuando la fecha se establecida alla pasado la aplicacion se cierre sola.

en el elemento OnCreate del from principal le he puesto

 
Var
 dd, mm, aaaa : Word;
 Fecha : String;
Begin
 DecodeDate(Now, aaaa, mm, dd);
 Fecha:= Format('%2.2d/%2.2d/%4.4d',[dd,mm,aaaa]);
 If (Fecha > '01/05/2005')
 Then Begin
   ShowMessage('Fecha espirada');
   Application.Terminate
  End else
end;

Pero no se que es lo que ocurre que siempre se efectua y claro esta se cierra
alguien me podria dar alguna pista????

[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;