TClientSocket的问题

Question

使用TClientSocket连接服务器时，如果服务器未开机，TClientSocket在Open时会得到一个错误，而且这个错误在应用程序中似乎无法获得。请问如何处理这样得错误？

Answer 1

try
  ClientSOcket1.Open;
except
 on E:Exception do showmessage(e.message);
end;

Answer 2

也可以屏掉错误！
procedure Tlog_server_Form.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  ErrorCode := 0;
end;