Wie Prozedur immer zu best. Zeit starten ohne Taskplanner?

[JuliaBecks]

ich DANKE ersteinmal allen beteiligten für die hilfreichen Antworten!!!!

ich werde mir bei gegenheit die Doku auf jedenfall mal ansehen und nach besserer Lösung dort suchen.

auf die schnelle hab ich das nun so gelöst, es funktioniert für meine Anforderungen zumindest:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer := TTimer.Create(self);
  Timer.Interval := 1000;
  Timer.Enabled := True;
  Timer.OnTimer := StarteMeineFunktion;
end;


procedure TForm1.StarteMeineFunktion(Sender: TObject);
var Y, M, D : Word;
    Startzeit, Endzeit : TDatetime;
begin
  // Aktuelles Datum entschlüsseln
  DecodeDate(Now, Y, M, D);
  // Startzeit und Endzeit vorbelegen
  Startzeit := EncodeDate(Y,M,D) + EncodeTime(14,0,0,0);
  Endzeit   := EncodeDate(Y,M,D) + EncodeTime(16,0,0,0);

  // Prüfen, ob ich innerhalt der Zeitspanne bin
  if (now > Startzeit) and (Now < Endzeit) then
    begin
      // Timer aussetzen
      timer.Enabled := false;
      BEGINNEMITDEMLESEVORGANG;
      // Timer erneut einschalten
      timer.Enabled := true;
    end
end;