socket服务端的ClientDisconnect事件中，如何判断，是第几个connection中断了？

Question

因为连接时，有些处理，断开时需要复原

Answer 1

在SocketServer的OnClientDisconnect事件中：
procedure TFrmMCS.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
  ClientConnectCount: integer;
  con: integer;
begin
    ClientConnectCount := ServerSocket1.Socket.ActiveConnections;
    with RichEdit3 do
    begin
      SelAttributes.Color := clBlack;
      RichEdit3.Refresh;
      Lines.Add(Socket.RemoteHost +' is exist the Chating room');
    end;
    for con := 0 to ServerSocket1.Socket.ActiveConnections -1 do
      if Socket = ServerSocket1.Socket.Connections[con] then
      begin
        ComboBox1.Items.Delete(con);
        ClientConnectCount :=  ClientConnectCount -1;
      end;
    StaticText4.Caption := 'Total ' +inttostr(ClientConnectCount) +'Client(s) Connected Chat Server';
end;

Answer 2

点解将该贴转移到VB？？？我是在Delphi回答的，点解？点解？点解？