Синхронный сервер

...
 class TMyFunc1ServerThread : public TServerClientThread
{
  public:
    void __fastcall ClientExecute(void);
  __fastcall TMyFunc1ServerThread(
          bool CreateSuspended,TServerClientWinSocket* ASocket):
          TServerClientThread(CreateSuspended,ASocket){};
};
 
...
 
void __fastcall TMyFunc1ServerThread::ClientExecute()
{
    while (!Terminated && ClientSocket->Connected)
    {
        try
        {
            TWinSocketStream *pStream = new TWinSocketStream(ClientSocket, 60000);
            try
            {
                int len;
                char buffer[1000];
                memset(buffer, 0, sizeof(buffer));
                if (pStream->WaitForData(60000))
                {
                    try
                    {
                        len=pStream->Read(buffer, sizeof(buffer));
                        if (len==0)
                        {
                            if(MainForm->SS->Active)
                                MainForm->Text->Lines->Add(DateTimeToStr(Now())+":: "
                                +ClientSocket->RemoteAddress
                                 +":"+ClientSocket->RemotePort+" отключился.");
                            ClientSocket->Close();
                        }
                        else
                            MainForm->Text->Lines->Add(buffer);
                    }
                    catch (...)
                    {
                        ClientSocket->Close();
                    }
                }
                else
                    ClientSocket->Close();
            }
            __finally
            {
                delete pStream;
            }
        }
        catch (...)
        {
            HandleException();
        }
    }
}
 
...
 
void __fastcall TMainForm::SSGetThread(TObject *Sender,
      TServerClientWinSocket *ClientSocket,
      TServerClientThread *&SocketThread)
{
    Text->Lines->Add(DateTimeToStr(Now())+":: Клиент " +
        ClientSocket->RemoteAddress+":"+ClientSocket->RemotePort
        +" подключился.");
    SocketThread=new TMyFunc1ServerThread(false,ClientSocket);
}
 
...