关于delphi下clientsocket的重复连接问题

     这几天用clientsocket进行数据传输时发现考虑到网络或服务非正常端断掉时候，客户端需要进行重新连接。但重新连接后法相socket句柄不能释放，在windows

管理器里可以看到，如果不断重新连接，几天之后程序就会崩溃。通过对delphi下源代码追踪发现当调用clientsocket的open时，程序调用API socket函数生成一个套接字，主动关闭时调用closesocket关闭套接字。但是当active是false时不调用内部disconnect函数，此函数调用closesocket释放资源，所以只能在程序中自己调用closesocket，代码如下：         

 if not clientSocket1.active then

 begin

               closesocket(clientsocket1.socket.sockethandle);

               clientsocket1.open;

  end;