DateTimePicker: zu einer gewissen Uhrzeit Funktion ausführen

[shmia]

Delphi-Quellcode:

procedure TMainForm.Timer_UhrzeitTimer(Sender: TObject); 
var
  jetzt, bis : TDateTime;
begin 
  jetzt := Time;
  // jetzt noch die Intervalzeit (in ms) umrechnen in Tage
  // und zur aktuellen Zeit addieren
  bis := jetzt + Timer_Uhrzeit.Interval / MSecsPerDay;

  //prüfen ob Uhrzeit im gültigen Bereich
  if (DateTimePicker_Uhr.Time >= jetzt) and (DateTimePicker_Uhr.Time<= bis) then
    begin 
      //Timer disablen 
      Timer_Uhrzeit.Enabled := false; 
      try
        //Procedure "Updaten" starten 
        Updaten; 
      finally  // <== sicherstellen, dass der Timer auch bei Fehler weiterläuft
        //Timer enablen 
        Timer_Uhrzeit.Enabled := true; 
      end;
    end; 
end;