Jak wykryć połączenie z netem

uses
  WinInet;

function IsConnectedWithInternet(): Boolean;
var
  Flags: DWORD;
begin
  Flags := INTERNET_CONNECTION_MODEM or
           INTERNET_CONNECTION_LAN or
           INTERNET_CONNECTION_PROXY or
           INTERNET_CONNECTION_MODEM_BUSY;

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