ejecutar codigo de delphi cada 24 horas

[richy08]

gracias casimiro ya tengo un timer en mi aplicacion que me muestra la hora y fecha en el sistema pero este timer lo tengo que se este actualizando cada segundo ahora lo que pretendo hacer es que este leyendo una tabla de mi base de datos no resultaria esto muy costoso para la aplicacion? anexo el codigo

Código Delphi [-]
procedure TFrm_Menu.RelojTimer(Sender: TObject);
var d,m,a:Word;
mes,dia:String;
begin
Decodedate(now,a,m,d);
case m of
 1 :mes:='January' ;
 2 :mes:='February' ;
 3 :mes:='March' ;
 4 :mes:='April' ;
 5 :mes:='May' ;
 6 :mes:='June' ;
 7 :mes:='July' ;
 8 :mes:='August' ;
 9 :mes:='September' ;
 10 :mes:='October' ;
 11 :mes:='November' ;
 12 :mes:='December' ;
end;

case DayOfWeek(now) of
 1 :dia:='Sunday' ;
 2 :dia:='Monday' ;
 3 :dia:='Tuesday' ;
 4 :dia:='Wednesday' ;
 5 :dia:='Thursday' ;
 6 :dia:='Friday' ;
 7 :dia:='Saturday' ;
end;
stb_panel.Panels[0].Text:=Application.Hint;
stb_panel.Panels[1].Text:='Date:  '+dia+', '+IntToStr(d)+' of '+mes+' of '+IntToStr(a);
stb_panel.Panels[2].Text:='Time:  '+TimeToStr(Time);
//pretendo hacer algo asi
Qry_ultimacorrida.close;
qry_ultimacorrida.open;
MyDate := EncodeDate(a,m,d);
if Qry_ultimacorrida.fieldbyname('fecha').asdatetime>=muydate then
begin
//desencadena proceso
end;
end;