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

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  ClientSocket1.Close;
end;

我在On Error 事件中添加 ClientSocket1.Close; 还是不行.
我应该怎样做呢?

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

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;