Fehler bei InternetCheckConnection

[Samufi]

Hallo,
ich möchte gerne, dass das Programm, das ich schreibe, feststellt, ob eine Verbindung mit dem Internet besteht. Dazu nutzte ich

Delphi-Quellcode:

if InternetCheckConnection(nil, 0, 0)=false then       
begin
  showmessage('Stellen Sie bitte eine Verbindung mit dem Internet her und starten Sie das Programm erneut!');
end;

Trotz der Tatsache, dass ja augenscheinlich eine Verbindung zum Internet besteht bekomme ich immer diese Meldung, InternetCheckConnection gibt also immer "false" zurück. Hat jemand eine Ahnung, woran das liegen könnte?