TServerSocket在什么时候真正关闭连接？

[pol12pol]

当有多个用户连接到TServerSocket，
它会为每个用户生成一个TCustomWinSocket
当某个TCustomWinSocket->close;时，
TServerSocket并不立即删除这个TCustomWinSocket
请问我有什么方法立即删除相应的TCustomWinSocket吗？

[pol12pol]

求救求救

[netsys2]

每个CLIENT连接上来时记录其产生的SOCKET：

TCustomWinSocket *bakSocket[1024];
int index=0;
void __fastcall TForm1::ServerSocket1Accept(TObject *Sender,
TCustomWinSocket *Socket)
{
bakSocket[index++] = Socket;
}

CLIENT CLOSE时：

bakSocket[x]->Close();

[pol12pol]

我不是这个意思

比如一个server中只有一个用户，
执行完语句server->socket->connection[0]->close()后
如果紧接着查看server->Socket->ActiveConnections，其值仍为1
只有当语句server->socket->connection[0]->close()所在的函数推出后
server->Socket->ActiveConnections才为0
我一个函数和server->Socket->ActiveConnections的值的关系很重要
能不能在server->socket->connection[0]->close()就让
server->Socket->ActiveConnections自动减去呢？

[netsys2]

执行完语句server->socket->connection[0]->close()后：

Sleep(200);

[pol12pol]

不行的就是睡上1000年也不行
它好像是只有在调用server->socket->connection[0]->close()这句话的函数完全执行完才行

[pol12pol]

help me!!!

[popo207]

用socket->free();看看