Wie Prozedur immer zu best. Zeit starten ohne Taskplanner?

[JuliaBecks]

könnte das dann vielleicht so funktionieren?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  timer : TTimer;

begin
  Timer := TTimer.Create(self);
  Timer.Interval := 2000;
  Timer.Enabled := True;
  Timer.OnTimer := StarteFunktion;
end;


procedure TForm1.StarteFunktion;
begin
  // Prüfen ob die Anfangszeit erreicht ist
  if now = StrToDatetime(DateToStr(Now)+'14:00:00') then
    begin
      // Timer ausschalten
      timer.Enabled := false;
      // Wiederholen bis die Endzeit erreicht ist
      repeat
        StarteEineBestimmteProcedure;
      until now >= StrToDatetime(DateToStr(Now)+'16:00:00');
      // Timer wieder einschalten
      timer.Enabled := True;
    end;
end;