Socket Server

[Klaus01]

.. vielleicht funktioniert es so:

Delphi-Quellcode:

procedure TForm1.ServerSocket2ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
   memo3.Lines.Add(intToStr(ServerSocket2.Socket.ActiveConnections));
end;

Grüße
Klaus