[Reist]

Код:

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
var i:integer;
mes:string;
begin
  k:=k+1;  debug(IntToStr(k));//Сделал для выявления цикла, на код программы не влияет.
 `ListBox1.Items.Clear; 
    for i:=0 to (ServerSocket1.Socket.ActiveConnections-1) do
    ServerSocket1.Socket.Connections[i].SendText('<S>');
end;