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????