简单问题,困扰了我一天,大家快来看看,关于网络检测的

Question

我的程序中需要检测与远程服务器某一端口的连接状况
我得想法是用TClientSocket对象与远程的服务器建立一个TCP连接如果建立连接不成功,抛出异常,则表示网络故障.反之,网络正常.但是,我在设置好:
ClientSocket1.Address := hostname; //远程主机名
ClientSocket1.Port    := port;     //远程主机端口并将ClientSocket1.Active :=True;时,还是不抛出异常啊.请问,如何才能在网络故障的时候让程序抛出异常啊.谢谢高手指点