Thread für einfache Funktionsauslagerungen

[p80286]

Wie wäre es ohne sleep aber mit Triggerung durch einen Timer?
oder so:

Delphi-Quellcode:

while aMYThread.InProgress do
begin
  aMyThread.InProgres:=false; {ich hab das read gesehen.....}
  MeinInfoFenster.Action;
  Sleep(1000);
end;

Gruß
K-H