Hm, verstehe nicht so ganz was der Quelltext mit FlashTime bewirkt.
Der eigentliche Thread muß ständig weiterlaufen, das heisst die Funktion mit Rückgabewert muß auch ständig ausgeführt werden. Und seperat muß üperprüft werden, ob der Rückagbewert 10 Sekunden lang jeweils 1 gewesen ist, dann soll der Thread neu gestartet werden, andersfalls einfach weiterlaufen. ist der Rückgabewert dann wieder mal 1, soll eine erneute Zeitprüfung beginnen.
Wird das mit deiner Routine realilsiert?
Bin in Delphi noch ein Anfänger, deswegen die Nachfrage