[Assistant]

запоминать открытое соединение с ним и потом вот как-то так:

Код:

for i:=0 to ServerSocket1.Socket.ActiveConnections-1 do
  ServerSocket1.Socket.Connections[i].............