Ошибка 11004

[RIO]

Здравствуйте ! Подскажите пожалуйста как правильно отловить ошибку 11004, она возникает когда например отсутствует подключение к интернету . . . Пробую таким способом но почему-то не ловится :

begin
  try
    Text := HTTP.Get('Сайт');
  except on E: EIDHttpProtocolException do
         if E.ErrorCode = 11004 then
         begin
            Application.MessageBox('Отсутствует подключение к интернету !',
                                   'Ошибка', MB_OK + MB_ICONWARNING);
            Close;
         end;
  end;
end;

[RIO]

Тема закрыта уже разобрался, нужно было использовать такую функцию :

  except on E: EIdSocketError do
         if E.LastError = 11004 then