Нет интернета!

uses wininet;
///////////////////////////////////////////
if InternetCheckConnection('http://www.shararam.ru/h/CommonSocialBlock?method=login', 1{FLAG_ICC_FORCE_CONNECTION}, 0) then Work:=true else Work:=false;
///////////////////////////////////////////

INDY
  try
  idhttp1.Head('http://efurshet.com/');
  ShowMessage('есть');
  //if idhttp1.ResponseCode=200 then ShowMessage('есть');
  except
  ShowMessage('no');
  end;