1:
2:
3:
4:
5:

var
test: string;
begin
test:= serversocket1.socket.RemoteAddress;
end;					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
  test: string;
begin
  test := serversocket1.Socket.Connections[0].RemoteAddress;
end;					

1:
2:
3:
4:
5:
6:

procedure Tfrmserver.ServerClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
user:=server.Socket.ActiveConnections;
redtuser.lines.add(server.Socket.Connections[user-1].RemoteAddress);
end;					

1:
2:
3:
4:
5:

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Label1.Caption := Socket.RemoteAddress;
end;