Thread innerhalb einer Komponente erzeugen und beenden

[DataCool]

@Robert:

mache ich es so wie von Dir vorgeschlagen :

Delphi-Quellcode:

  if FCon2SvrThd <> Nil then begin
    FCon2SvrThd.Terminate;
    FCon2SvrThd.WaitFor;
  end;  
  if FCon2SvrThd <> Nil then
    beep;

und rufe Cleanup am Ende des Execute des Threads auf, dann wird auch das Ereignis OnTerminate ausgelöst, setze ich aber da FCon2SvrThd := Nil;
Wird folgender Fehler ausgelöst :

Systemfehler. Code: 6.
Das Handle ist ungültig.

Noch ne Idee ?

Gruß Data