ejecutar aplicación cada hora

[[Lepe]]

Código Delphi [-]

NextAlert := RecodeTime(Now, Hourof(now)+1,0,0,0); // a la hora siguiente en punto 
Faltan := millisecondsBetween(NextAlert, Now);
if faltan >0 then
begin
  timer1.interval := faltan;
  timer1.Enabled := true;
end

Creo que las rutinas estan en la unidad DateUtils.

Un saludo