🚀 go-pugleaf

Right.  I've tried the tutorial and I get the same problem.  Every time the
server gets data it drops into the client socket close(), snippet below,
which is in the TMyServerThread.

               if (pStream->Read(buffer, sizeof(buffer)) == 0)
                  // (if can't read in 60 seconds) than close the connection
                  ClientSocket->Close();

Can I confirm:
The client app component (drag + drop onto the form) is "ctNonBlocking"?
The server app component (drag + drop onto the form) is "stThreadBlocking"
and has an event handler for get thread.

//--------------------------------------------------------------------------
-
void __fastcall TForm1::ServerSocket1GetThread(TObject *Sender,
      TServerClientWinSocket *ClientSocket, TServerClientThread
*&SocketThread)
{
   SocketThread = new TMyServerThread(false, ClientSocket);
}
void __fastcall TForm1::SocketOpenClick(TObject *Sender)
{
    // open thread blocking socket
    ServerSocket1->Active = true;
}
void __fastcall TForm1::SocketCloseClick(TObject *Sender)
{
    // close thread blocking socket
    ServerSocket1->Active = false;
}