如何避免ClientSocket控制在服务器不存时发生的错误

事件搞错了.应该是以下这段代码

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  ClientSocket1.Close;
end;

同时问题也解决了.

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  ErrorCode:=0;             //把些变量赋为0就不会出现错误提示了.
  ClientSocket1.Close;

end;