Ja, den Beitrag hatte ich auch heute schon durchgekaut und jetzt aktuell noch mal.
Ich habe dann aus
http://qc.embarcadero.com/wc/qcmain.aspx?d=26291 den Fix
Delphi-Quellcode:
// The same fix can be made in user's code at the end of Execute:
TMyThread.Execute;
begin
...
if FreeOnTerminate and (Suspended=True) then
repeat Sleep(0); until (Suspended=False);
end;
in meinen Thread eingebaut und jetzt scheint es einwandfrei und ohen Fehler zu laufen.
Diesen Beitrag kann man sich auch noch mal in Bezug auf das Problem ansehen:
Thread: Fatal Threading Model!
Ansonsten sehe ich an meinem Code nicht unbedingt ein Problem.
Trotdem schon mal Danke.
Grüße
Sven