简单的问题，服务端监视客户端 ( 积分: 100 )

想实现Delphi中的socketSrv功能：
即当客户端连接中间层时，中间层显示当前连接的客户端。
Midas自带的SocketSrv不错。很好的实现了。
我想自己做一个：用TServerSocket（中间层）,TClientSocket（客户端）控件。
在中间层的onConnect事件中加代码，添加来客户端连接，在onDisconnect事件中，删除这个连接。在一般情况下，这个方法，正常。但是遇到意外情况网络断开，这个判断失效。这样时间长了，中间层就会显示一堆无效的连接。
注：一台机器可能运行多个客户端，这时中间层要求显示这台机器上的多个连接。
请问各位高手有什么好办法，应该不难。
送上100分。

楼主可参考这个例子，虽然不是SocketSrv的，但是原理差不多。

http://www.2ccc.com/article.asp?articleid=3894

本Demo展示：

[red]1,在服务器端如何维护已经登录的用户列表；[/red]
2,反向通讯，通过服务器端给客户端发送文件；
3,实现客户端与服务器端的Chat聊天功能（稍加改动可转化为C->S->C的聊天程序）
4,如何使用IdTCPServer和IdTCPClient控件
5,初步实现线程命令方式，在传送文件的时候不会让服务器端停止响应