ServerSocket.Socket.Connections[i].Close;

[Sir Rufo]

Gut das es dafür ja Events gibt:

Delphi-Quellcode:

lb_Clients.Items.AddObject( IntToStr(Socket.SocketHandle) + #9 + Socket.RemoteAddress, Socket );
Socket.OnDisconnect := ClientSocketDisconnect;

Und in der Methode dann

Delphi-Quellcode:

procedure TForm1.ClientSocketDisconnect( Sender : TObject );
var
  idx : integer;
begin
  idx := lb_Clients.Items.IndexOfObject( Sender );
  lb_Clients.Items.Delete( idx );
end;