[T-dayne]

Если на сокетах то

Код:

procedure addhoststolist();
  var   i: integer;
begin
for i:=0 to server.Socket.ActiveConnections-1 do
 begin
  setlength(ips, inc(p)-1);
  listbox1.items.add(server.Socket.Connections[i].RemoteAddress);
 end;
end;

Так у тебя будет листбокс со всеми клиентами.