Mam problem bo od pewnego momentu (nie wiem dlaczego) od wczoraj funkcja zwraca mi false mimo tego, że jestem połączony z interkiem. Mam takie dwie funkcje:

function Connected: LongBool;
var
  Flags: DWORD;
begin
  Flags := INTERNET_CONNECTION_LAN or INTERNET_CONNECTION_MODEM or
           INTERNET_CONNECTION_PROXY or INTERNET_CONNECTION_MODEM_BUSY;

  Result := InternetGetConnectedState(@Flags, 0);  // sprawdz polaczenie.

  if not Result then
  begin
    InternetConnect;
    Result := InternetGetConnectedState(@Flags, 0);  // sprawdz polaczenie.
  end;
end;

//i druga

function InternetConnect: LongBool;
var
  dwConnectionTypes: DWORD;
begin
  result := true;
  dwConnectionTypes := INTERNET_CONNECTION_MODEM
                        + INTERNET_CONNECTION_LAN
                        + INTERNET_CONNECTION_PROXY;
  if not InternetGetConnectedState(@dwConnectionTypes, 0) then
  begin
    if AutoConnect then
      InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or INTERNET_AUTODIAL_FORCE_UNATTENDED, 0);
  end;
end;

nie wiem co się dzieje, moze jakis blad gdzies? pomóżcie!