Überwachung von Variablen in einem Thread

[shmia]

Der Thread arbeitet ja wohl in einer Schleife.
Dann kann er sich doch selbst "neu starten"

Delphi-Quellcode:

Label Anfang;
begin

Anfang:
  Initialisierung;  // falls nötig Startwerte setzen

  FLastTime := Now;
  while not Terminated do
  begin
    x := RufeFunktion;
    if x <> 1 then
       FLastTime := Now
    else if (Now-FLastTime)*24.0*60.0*60.0 > 10.0 then
       goto Anfang;
  end;
end;