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

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?

Prueba esto
 

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

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

Un saludo

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