Проверка работы сайта Delphi

[ychelovek]

В общем то мне надо првоерить интернет но мне не подходят варианты, где проверка сети идет, поэтмоу я решил проверить доступен ли сайт ya.ru


В общем код:
procedure TForm2.Timer1Timer(Sender: TObject);
begin
idHTTP1.ConnectTimeout:=10;
IdHTTP1.Get( 'http://ya.ru' );
Try showmessage('Инет есть');
timer1.Enabled:=false;
idhttp1.Disconnect;
Except
idhttp1.Disconnect;
showmessage('Нету инета');
timer1.Enabled:=false;
end; End;
Что сделать что бы при отсутствия интернета вылазила не системная ошибка TimeOut , а Моя ошибка showmessage('Нету инета');

P.S. Ненадо мне коды проверки подключения ( там проверка идет и по локалу и все аткое)

Заранее СПАСИБО

[Пепел Феникса]

а вы вне отладчика запустите.

[ychelovek]

TimeOut пишет ВНЕ обработчика ( запускал exe файл)

[BDA]

IdHTTP1.ConnectTimeout := 10;
  try
    try
      IdHTTP1.Get('http://ya.ru');
      caption := 'Инет есть';
    Except
      on E: Exception do
        caption := 'Нету инета';
    end;
  finally
    IdHTTP1.Disconnect;
  end;

[ychelovek]

Спасибо дружище помог очень сильно

[ychelovek]

Горящая голова знает что делает ^^

[ychelovek]

Тему можно закрыть)