Asynchronous socket error 10061

[Nice42ru]

При запуске клиента, когда сервер выключен выскакивает ошибка

Asynchronous socket error 10061

Как заменить эту ошибку на свою? Тоесть не

Asynchronous socket error 10061

а

Сервер временно недоступен!

[profi]

Читай про работу с try ... except в Delphi.

[Nice42ru]

 Client.Address:=ServerIpCombo.Text;


  ServerConnection:=0;
  i:=0;

  while ((ServerConnection<>1) and (i<20)) do
  begin
    try
      Client.Open;
      ServerConnection:=1;
    except
      on Exception do
      begin
        ServerConnection:=-1;
        inc(i);
        Sleep(200);
        Application.ProcessMessages;
      end;
    end;
  end;

 if (ServerConnection<>1)  then
 begin
 MemoLog.Lines.Add('No server connection');
 Exit;
 end;

Undeclared identifier: 'ServerConnection'

Как обозначить ServerConnection?

[ОДИНОЧЕСТВО В СЕТИ]

смотреть тут пост #2
или

try
if not ClientSocket1.Active then
ClientSocket1.Active:=true;
except
MessageDlg('Ошибка соединения.',mtError[mbOk],0);
Exit
end;

[Nice42ru]

Спасибо! Всё отлично работает!

[Александр1988]

А что значит эта ошибка??

т.к
Когда я захожу на свой раб.стол, выходит черный экран через 10 секунд вылазит эта ошибка
Скажите как устранить ее?