BCB如何屏蔽TClientSocket阻塞方式产生的10061错误

（同一个世界，同一个梦想，交流学习C++Builder XE10，传承c++builder的魅力！欢迎各地朋友加入我的QQ群484979943，同时也请将该群号广为宣传，希望能够广集各方高手，共同进步。）如何屏蔽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() ;
}