如何屏蔽TSock类产生的错误？

Question

例如有一控件ClientSocket名为CS
当
try
cs.Host:='xxx';
cs.Port:=2000;
cs.Open;
except
close;
end;
当主机不存在或端口处无响应时就会弹出错误而不会执行CLOSE关闭程序。
为什么？如何能屏蔽该错误（不让它弹出错误对话框）？

Answer 1

直接在clientsocke控件的事件里加以下代码:
procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
Errorcode := 0; {不弹出出错窗口}
end;