Eine Patentlösung habe ich nicht. Ich mache es mir da einfach und implementiere es einfach nur richtig und schon funktioniert es:

zusammenfalten · markieren

Delphi-Quellcode:

TFooThread = class( TThread )
private
  FChair : TChair; // da setzt sich der Thread drauf
protected
  procedure Execute; override;
public
  constructor Create;
  destructor Destory; override;
end;

procedure TFooThread.Execute;
begin
  while not Terminated do
    FChair.SitDown(); // exessive Verwendung der TChair-Instanz
end;

constructor TFooThread.Create;
begin
  FChair := TChair.Create; // bevor irgendwas losläuft, erzeugen wir die TChair-Instanz
  inherited Create( False ); // der Thread selber wird erzeugt
end;

destructor TFooThread.Destroy;
begin
  // Der Thread kann jetzt noch aktiv sein,
  // darum dürfen wir ihm jetzt nicht den Stuhl unter dem Hintern wegziehen
  inherited;
  // Jetzt ist der Thread gesichert beendet
  // und nun kann die TChair-Instanz bedenkenlos aufgeräumt werden
  FChair.Free;
end;

Update...

2 Tage in der falschen Richtung gesucht. Es liegt definitiv nicht an den Threads. Das funktioniert hervorragend. Der bewußte Thread macht eine Datenübernahme aus einer alten Datenbankstruktur in eine neue Struktur. Weil ich noch in der Entwicklung bin wird jeder Step gleich commited (damit ich kontrollieren kann). Später läuft das in einer Transaktion. Dies habe ich nun mal probiert. Dabei stellte sich heraus, das der Firebird mit seinen Commits der mehreren tausend Datensätze nicht hinterherkam. Deshalb beim Beenden die Verzögerung. Wenn man mit dem Beenden lange genug gewartet hat, ging es auch schnell. Wenn das alles in einer Transaktion abgearbeitet wird, braucht halt das Commit länger. Das Beenden geht danach sofort.

Schön das wir darüber geredet haben...