可以晓得indy tcp server的客户端连接数吗

可以知道indy tcp server的客户端连接数吗?
如题...

这个组件有没有这个属性可以读取.
[解决办法]
IdTCPServer->Contexts->LockList()->Count
[解决办法]
简单代码：

TList *pClientList = IdTCPServer->Contexts->LockList();
try
{
for (int i = 0; i < pClientList->Count; i++)
{
// 
}
}
__finally
{
IdTCPServer->Contexts->UnlockList();
}