void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
  int ConnectID=-1; //目前之 Socket 在 Connections 中的連結編號
  for (int i=0;iSocket->ActiveConnections;i  )
        {
          if (ServerSocket1->Socket->Connections[i]->RemoteAddress==Socket->RemoteAddress)
             {
               ConnectID=i;
               break;
             }
        }      ServerSocket1->Socket->Connections[ConnectID]->SendText("MyTest");
}