Fecha con condiciones

[rufo]

Es la fecha que tome mi programa de mi pc y al momento de llegar esa fecha que me realice una funcion ya sea en mostrar un mensaje u otra accion, mira les pongo algo de codigo que ya estuve haciendo pero me marca error espero lo cheque y me ayuden.

procedure TBORRAR.FormActivate(Sender: TObject);
begin
label1.Caption:=FormatDateTime('dd/mm/yyyy ',Date);
fecha:=StrToDate['06/04/2010'];
if (Date = fecha) and (Time = EncodeTime(12,08,00,00)) then
Begin
 application.Terminate;
End;
end;

Aqui ya especifico hasta la hora en que debe cerrar la ventana, pero me marcar error al compilar, StrToDate, que estoy haciendo mal. Gracias de antemano.