[ganselo]

Код:

catch(EIdSocketError &se){
      if(se.LastError == 11004)
        MessageBox(0, "Соединение не обнаружено", 0, 0);
}

Консольный вариант выполняет тоже самое, что:

Код:

var
  connected: boolean;
begin
  connected:=true;
  //тут прописываем настройки idHTTP
  try
    idHTTP.Get('http://www.google.ru');
    //в OnStatus можно прописать дисконнект на статусе "Connected", что б лишнего не качать
  except
    on e: exception do connected := false;
  end;
  if not connected then
    ShowMessage('Нет инета')
  else
    ShowMessage('Есть инет');
end;

Только на низком уровне.