Fecha con condiciones

[rufo]

Gracias amigo pero ya lo puse como me indicaste y no pasa nada mira te anexo el codigo que hasta ahorita tengo

procedure TBORRAR.Timer1Timer(Sender: TObject);
begin
 label1.Caption:=FormatDateTime('dd/mm/yyyy ',Date);
 Label2.Caption := FormatDateTime('h:mm ampm',Now);
 fecha:=StrToDate('06/04/2010');
if (Date = fecha) and (Time = EncodeTime(12,39,00,00)) then
Begin
 application.Terminate;
End;
end;

end.

Espero que me eches una mano y gracias por responder.