TThread - OnTerminate

[Motzi]

Du spendierst deinem Thread eine public Variable hCloseEvent, beim erzeugen des Threads erzeugst du dann das Event:
hCloseEvent := CreateEvent(nil, False, False, 'EventName'); Wichtig: Der EventName muss eindeutig sein - verwendest du also mehrere Threads musst du dir was überlegen wie du jedem Thread einen eindeutigen Namen für sein Event verpasst.

im Thread wartest du einfach mit WaitForSingleObject auf das Event:

Delphi-Quellcode:

repeat
  // normale Thread-Aktivität
until WaitForSingleObject(hCloseEvent, 60000) = WAIT_OBJECT_0;

Solange das Event also nicht signalisiert wird soll der Thread alle 60Sekungen zuteilungsfähig werden und ganz normal seine Aufgabe erfüllen. Sobald das Event signalisiert wird, wird der Thread zuteilungsfähig und WaitForSingleObject gibt WAIT_OBJECT_0 zurück wodurch die Schleife beendet wird.

Um das Event also zu signalisieren und dem Thread dadurch mitzuteilen, dass er beendet werden soll rufst du einfach aus dem MainThread SetEvent auf:
SetEvent(Thread.hCloseEvent);