Entonces es que a lo mejor no estás planteando las preguntas como debes.
Código Delphi
[-]
var
i:Integer;
wSocket:TCustomWinSocket;
str:string;
begin
for i := 0 to (ServerSocket1.Socket.ActiveConnections - 1) do begin
wSocket := ServerSocket1.Socket.Connections[i];
Str := 'Host: ' + wSocket.RemoteHost + ' Adress: ' + wSocket.RemoteAddress +
' Port: ' + IntToStr(wSocket.RemotePort);
MessageDlg(Str, mtInformation, [mbOK], 0);
end;