程序正常运行一定时间后产生错误Socket operation on non-socket，怎么解决？

[snowhill]

各位老大，我用TClientSocket和TServerSocket进行数据通信，开始程序运行正常。一定时间(可能是几分钟，也可能更长)后会出现如下的错误。
Socket operation on non-socket
我把代码分析了好多遍，没有找到错误，大家帮帮我，可能是什么地方出的问题啊？

这个错误，别的地方说这样，我没看明白:(

WSAENOTSOCK (10038) Socket operation on non-socket.

操作试图不是在套接字上进行。它可能是套接字句柄参数没有引用到一个合法套接字，或者是调用select()函数时，一个fd_set中的成员不合法。

[snowhill]

大家帮帮我这个菜鸟啊

[Andrionda]

你把相关代码贴出来看看