for(int i=0;i<Server->Socket->ActiveConnections;i++)
{
String sNombre = Server->Socket->Connections[i]->RemoteHost;
String sIp = Server->Socket->Connections[i]->RemoteAddress;
ListBox1->Items->Add("Equipo: "+sNombre+" - Ip: "+sIp);
}