Adresse in einem TIdPeerThread abspeichern

Tobi3000

Ich hab die Adresse von einem Objekt, welches unbedingt in einem TIdPeerThread abgespeichert werden muss.

So etwas wie man auch AnsiStrings abspeichern kann mit

AThread->Connection->Socket->SocksInfo->Username = AChannel;

Ich hab das mit

AThread->Data = reinterpret_cast<TObject>(MyClass);

versucht, so wie ich es mal in einer Delphi-Indy-Demo gesehen hab.

Wenn ich jetzt aber den Server schließe, dann kommt immer 'Terminate Thread Timeout' und darum ist das doch keine gute Lösung.

Hat jemand eine Idee?