🚀 go-pugleaf

OK, this is my (working) code i am currently using:

//---------------------------------------------------------------------------
class TMyThreadClass
{
public:
        TIdPeerThread*  pAThread;
        int someparameter;
        void __fastcall Process();
protected:
private:
};
//---------------------------------------------------------------------------
void __fastcall TForm1::IdTCPServer1Connect(TIdPeerThread *AThread)
{
   TMyThreadClass* pMyThreadClass;
   pMyThreadClass= new TMyThreadClass();
   pMyThreadClass->someparameter=1;  // initializing parameters
   AThread->Data = (TObject*) pMyThreadClass;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdTCPServer1Disconnect(TIdPeerThread *AThread)
{
   TMyThreadClass* pMyThreadClass;
   pMyThreadClass = (TMyThreadClass*) AThread->Data;
   delete pMyThreadClasss;
   AThread->Data = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdTCPServer1Execute(TIdPeerThread *AThread)
{
   TMyThreadClass* pMyThreadClass;
   pMyThreadClass = (TMyThreadClass*) AThread->Data;
   pMyThreadClass->pAThread = (TIdPeerThread*) AThread;

   // read from with AThread->Connection->CurrentReadBuffer()

    if (...) // some conditions
   {
      Process();
   }
}
//---------------------------------------------------------------------------
void __fastcall TDeviceClass::Process()
{
     // Example
     pAThread->Connection->WriteLn("Hello!");
}
//---------------------------------------------------------------------------

This code works fine. But i want to assign MyThreadClass to 
IdTCPServer->ThreadClass.
You wrote in a previous thread, that this would be the better solution.
But i gave it up due some access violations.

Regards, Martin