Обработка ошибки 10061. ClientSocket

[eks-s]

Подскажите пожалуйста, как обработать ошибку при невозможности подключения к серверу? код 10061. Использую Client/ServerSocket

пишу вот так:

uses Winsock;
...
var
  err : integer;
...
      ClientSocket.Active := True;
      err := WSAGetLastError;
      if err = WSAECONNREFUSED then
        begin
          ClientSocket.Active := False;
          showmessage('Сервер не найден.');
        end

[eks-s]

Всё, разобрался )) Делаю вот так, посмотрите пожалуйста, правильно делаю?

procedure TForm1.ClientSocketError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  if ErrorCode = 10061 then
    begin
      ClientSocket.Active := False;
      showmessage('Сервер не найден.');
      ErrorCode := 0;
    end;
end;

[alexBlack]

см.также
http://www.programmersforum.ru/showthread.php?t=14882