Wie beende ich einen TThread freundlich und notfalls gewaltsam?

[Bjoerk]

Hallo schöner Günther,

wo hast du denn das Logo, das einem so herrlich die Augen rausgebrannt hat?

Ich benutze Threads vergleichsweise selten, aber wie wär's mit 2 Events.

Delphi-Quellcode:

procedure TMyThread.Execute;
begin
  try
    try
      if Assigned(FThreadActive) then
        FThreadActive(Nil);
      ..
    except
      on E: Exception do
        ShowMessage('Interner Fehler TMyThread');
    end;
  finally
    if Assigned(FThreadInactive) then
      FThreadInactive(Nil);
  end;
end;