Código que se ejecute una sóla vez en un momento determinado del día

[noob]

Hola, estoy intentando hacer un código que se ejecute una sóla vez en un instante dado del día, he hecho esto y me funciona, sólo se ejecuta una vez:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  i := 0; // i es un atributo del formulario
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(i));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (TimeToStr(Time) = '22:12:00') and (i = 0) then
    i := i + 1;
    // Proceso una gran cantidad de datos
end;

He establecido la propiedad Interval del TTimer a 1 para que coja bien la hora pero claro esto puede hacer que al ir tan rápido entre de nuevo en el evento OnTimer antes de que se ejecute i := i + 1, que es la forma que tengo para que no vuelva a entrar en el if.

¿Está bien así o puede darme problemas porque se ejecute más de una vez?

[arturom]

Hola,
quizás podrías probar este código a ver si te sirve, utiliza la variable bExec para chequear que se repita solo una vez:

Código Delphi [-]
  bExec: Bool; // atributo del formulario

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (not bExec) and (TimeToStr(Time)='22:12:00') then begin
    bExec:= true;
    // Proceso una gran cantidad de datos
  end;
end;

Saludos

[[ElKurgan]]

También podrías intentar deshabilitar el Timer mientras se ejecuta el proceso largo y al terminar, volver a habilitarlo:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (TimeToStr(Time)='22:12:00') then 
  try
    Timer1.Enabled := False;
    // Proceso una gran cantidad de datos
  finally
    Timer1.Enabled := True;
  end;
end;

Un saludo

[noob]

No había caído en eso, voy a optar por ese diseño, así me ahorro la condición.