Delphi-Quellcode:
procedure TForm1.ServerSocket2ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
Memo3.Lines.Add(IntToStr(Socket.ActiveConnections));
end;
Sollte gehen, jedoch muss noch - falls die Methode nicht im Kontext des Hauptthreads aufgerufen wird - der Zugriff auf Memo3 synchronisiert werden, da es sonst zu Problemen wie "Hängern" kommt.