[HTTqp]

проверяю интерет соединения т.е. есть оно или нет. Вот как я это осуществляю:

Код:

const  
 INTERNET_CONNECTION_MODEM      = 1;  
 INTERNET_CONNECTION_LAN        = 2;  
 INTERNET_CONNECTION_PROXY      = 4;  
 INTERNET_CONNECTION_MODEM_BUSY = 8;

function IsInternetConnected: Boolean;
var  
 dwConnectionTypes: DWORD;
begin 
 dwConnectionTypes := INTERNET_CONNECTION_MODEM or 
                      INTERNET_CONNECTION_LAN or 
                      INTERNET_CONNECTION_PROXY;  
 Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if IsInternetConnected then  Label1.Caption:='1' else Label1.Caption:='0';
end;

но уменя всегда получается так как будто соединение все есть, вне зависимости от того включу я инет или нет. Интересует проверка через api без использования так сказать проверки в виде

Код:

HTTP.Get('http://ya.ru');

даже не интересует.