1:
2:
3:
4:
5:
6:

function Online:Bool;
var ConTypes:Integer;
begin
  ConTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
  result := InternetGetConnectedState(@ConTypes, 0);
end;                    

1:

uses WinInet;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button1Click(Sender:TObject);
var flags:DWord;
begin
  if InternetGetConnectedState(@flags, 0) then begin //Internet Verbindung
    checkbox1.checked := (flags AND INTERNET_CONNECTION_MODEM) <> 0; //Modem Verbindung
    checkbox2.checked := (flags AND INTERNET_CONNECTION_LAN) <> 0; //LAN Verbindung
    checkbox3.checked := (flags AND INTERNET_CONNECTION_PROXY) <> 0; //Proxy Server
   ShowMessage('Internet Verbindung vorhanden');
  end;
end;                    

1:
2:

  TCHAR       szAutodialDll[ MAX_PATH ];
  TCHAR       szAutodialFunc[ MAX_PATH ];