Hola, si te fijas en los argumentos de cualquier evento del TServerSocket hay uno que se llama "Socket", este argumento es un puntero que se refiere solo al cliente que ha hecho que se dispare el evento, por tanto, si estas dentro del OnClientRead bastaría con usar: void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
// esto es para que veas que ese puntero
// identifica al cliente en particular
// que ha enviado el texto
Memo1->Lines->Add("----------");
Memo1->Lines->Add( (int) Socket );
Memo1->Lines->Add( Socket->ReceiveText() );
}
aunque tengamos 200 clientes conectados, con esto solo estaremos leyendo lo que ha enviado el cliente que ha enviado algo y que ha hecho que se dispare el evento.
No se si será esto lo que necesitas o es que no te estoy entendiendo bien.
Saludos:
_Leo