Programmablauf für bestimmte Zeit unterbrechen

[XeRo]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Weiter: Boolean;
begin
Weiter:=False;
 Repeat
  Sleep(1);
  If TimeToStr(now)='12:30:00' then Weiter :=true;
 Until(Weiter=True);
end;

So kannst du auch genau festlegen, wann das Prog weiter gehen soll.