求解：怎么确定delphi里用TSocketConnection连接中间服务器的客户端数目

求解：如何确定delphi里用TSocketConnection连接中间服务器的客户端数目？
想知道有什么比较简单的办法或者TSocketConnection的属性值来连接中间服务器的客户端数目？
谢谢！

[解决办法]
var UserListCs:TCriticalSection
UserListCs.Acquire;
//操作变量
UserListCs.Release;