ServerSocket: ActiveConnections stimmt nicht immer

[Zacherl]

Wie gesagt .. du musst im OnDisconnet einen Client abziehen dh:
Label1.Caption := IntToStr(ServerSocket.Socket.ActiveConnections -1);