Mehrere Threads gleichzeitig...

[TGR]

Delphi-Quellcode:

var i:Integer;
begin
  for i:=1 to Cnt do
  begin
    Thr[i].Terminate;
    Thr[i].Priority=tpHigher;
    Sleep(0);
    Thr[i]:=nil;
  end;
end;

Um auf die Beendigung zu warten kannst Du das Ereignis OnTerminate auswerten.

Thomas