Moin,
habe den Denkfehler gefunden:
Zitat:
Delphi-Quellcode:
Delphi-Quellcode:
procedure TForm1.TerminateEvent(Sender : TObject);
begin
CT.Free;
Log('TerminateEvent');
end;
Das
CT.Free; ist hier Falsch, da der Thread sich ja schon beenden will. Ein erneuter Aufruf verhindert aber die Beendigung, sodass es zu einer Schleife kommt. Anfängerfehler.
Danke an allen für die Hilfe und Entschuldigung.