🚀 go-pugleaf

Hello everybody :)
  I have a client-server application implemented by using Indy 
TidTCPServer and TidTCPClient (Indy9 current Development snapshot).
Both client and server work fine, but only because the client send a 
specific order to the server when it finishes its job.. so the server 
inside its OnExecute event handler disconnect that.
Anyway if for some reason the user close the client application before 
it can send the disconnect command, the server application crashes (( .. 
even if I wrapped the code inside OnExecute inside a try catch!
The same happens if I try to close the server application before all 
clients have disconnected!
this is my code inside OnExecute:
  try
  {
   TNodzClientData* pNodz=(TNodzClientData*)AThread->Data;
   if(!pNodz)
    return;
   //Wait for instruction's beginning mark
   AThread->Connection->ReadLn("�");
   //first get command (integer)
   int command=AThread->Connection->ReadInteger(false);
   //get DataSize
   int datasize=AThread->Connection->ReadInteger(false);
   //allocate memory for Data
   unsigned char* Buffer = new unsigned char[datasize];
   //read data and put it into buffer
   AThread->Connection->ReadBuffer(Buffer,datasize);
   AnsiString Data=AnsiString((char*)Buffer,datasize);

   switch(command)
   {
    case cmdStringCommand:
     if(Data=="Disconnect")
      AThread->Connection->Disconnect();
     break;
    ...

   }
   //wait for instruction ending mark
   AThread->Connection->ReadLn("�");
  }
  catch(...)
  {

  }

Inside the OnDisconnect I call thread safe code for deleting my custom data

TDestroyClientData(AThread,NodzServerLog,pConnectedNodzClientsList).Synchronize();

where that class is defined:

class TDestroyClientData : public TIdSync
{
     protected:
         TNodzClientData* pNodzClientData;
         TRichEdit* Log;
         TList* pList;
         TIdThread* pThread;
         void __fastcall DoSynchronize()
         {
          try
          {
           Log->Lines->Add("Nodz Client disconnected");
           TNodzClientData* pNodz=(TNodzClientData*)pThread->Data;
           pList->Remove(pNodz);
           delete pNodz;
           pThread->Data=NULL;
          }
          catch(...)
          {

          }
         }
     public:
         __fastcall TDestroyClientData(TIdThread* AThread, TRichEdit* 
pLog,TList *pL)
             : TIdSync(AThread), pThread(AThread), Log(pLog), pList(pL) {}
};

How should I correct my code in order it can handle Client application 
closes and even Server closes without crashes??

Thank U very much in advance!!
Stefano B.