Thread nach Ablauf wiederverwenden

[Dax]

Delphi-Quellcode:

procedure TMyThread.Execute;
begin
  while not Terminated do
  begin
    MacheWas;
    Suspend; // wenn wieder was is einfach den Thread Resumen, dann macht er wieder was.
    // aber achtung: nach nem .Terminate muss auch ein .Resume her.
  end;
end;