Thread abbrechen

[richie]

Delphi-Quellcode:

procedure Kill;
begin
  Thread.Terminate;
end;

procedure TThread.Bla;
begin
  while not Terminated do
  begin
    ...
  end;
end;

Hängt sich nicht aber das Programm durch TThread.Bla auf, wenn darin eine Schleife ausgeführt wird?