请网络编程高手救急：关于socket无法正常释放问题。

一个基于Tcp/Ip协议的server端程序（delphi编的）在网络瞬断后重新建立socket 连接，debug后看出新的socket重建成功了，端口也绑定成功，但是这个新建的 socket不干活，程序停在建立Socket后的 
Select(0,@readFDs,nil,nil,@timeval)  这句话上，这句话每次返回的值都是0，所以程序走不下去，会不会是以前的socket 没有正常地释放？怎样才能正常释放？