Fecha con condiciones

[rufo]

Hola amigos buenos dias, les comento mi problemilla resulta que estoy haciendo un programa en el cual llamo la fcha del sistema de mi pc pero ahora nose como hacer que cuando se cumpla una fecha especifica me mande un mensaje de alerta o un aviso de que la fecha que estableci se afectuado casi como un recordatorio, bueno les anexo parte del codigo y de ahi nose que hacer

 procedure TBORRAR.FormActivate(Sender: TObject);
begin
label1.Caption:=FormatDateTime('dd/mm/yyyy ',Date);
end;

end.

Gracias de antemano y mas informacion, estoy usando delphi 2007

[Neftali [Germán.Estévez]]

Lo lógico es que utilices un componente TTimer, que cada x tiempo revise la hora del sistema y la compare con la que tú deseas.

Para mostrar el mensaje puedes utilizar los MessageBox o Dialogs.

[rufo]

Gracias, pero es ahi donde estoy atorado ya que pongo el timer pero no se como poner el codigo.

if timer1  then
....

Es ahi donde me quedo atorado.Si me puedes echar la mano te lo agradeceria

[[Caral]]

Hola
Pero es la fecha o la hora?.
Saludos

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

[Neftali [Germán.Estévez]]

El código que estás poniendo en el Activate, colócalo en el OnTimer.
El error es posible que te esté dando por usar corchetes en lugar de los paréntesis (que se utilizan para las funciones en Delphi).