Ich würde es so machen:
Delphi-Quellcode:
procedure TBeispielForm.Button2Click(Sender: TObject);
var
i: Integer;
begin
for i := 1 to Cnt do
begin
if Thr[lvCounter] <> nil then
begin
Thr[i].Terminate;
Thr[i].WaitFor;
Thr[i].Free;
Thr[i]:=nil;
end;
end;
end;
Im Thread die Eigenschaft Terminated auswerten und die Bearbeitung beenden.