怎么屏蔽TClientSocket阻塞方式产生的10061异常

如何屏蔽TClientSocket阻塞方式产生的10061错误
用TClientSocket 控件，阻塞方式 访问没有响应的IP和端口时，程序会自动报错： 由于目标机器积极拒绝，无法连接 (10061)

请问如何截取这个错误，自行处理它



[解决办法]
用 Try Catch
 
[解决办法]

C/C++ code

void __fastcall TForm1::ClientSocket1Error(TObject *Sender,      TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode){   ErrorCode = 0 ;   Socket->Close() ;}
[解决办法]
10061是连接被拒绝了。
void __fastcall TForm1::csControlError(TObject *Sender,
     TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
  ErrorCode = 0 ;
  MessageBox(Handle,"连接请求被服务器拒绝","系统提示",MB_OK|MB_ICONINFORMATION);
  Socket->Close() ;
}