První způsob:

K němu je potřeba knihovna WinInet, takže opět nezapomeňte přidat do Uses. Samotná funkce vrací True, pokud jsme připojeni, False pokud nejsme.
function Online : boolean;
begin
result := (InternetGetConnectedState(nil, 0))
end;
Druhý způsob:
V tomto případě zase využijeme služeb knihoven StdCtrls a Registry. Stejně jako v předchozím příkladu nám funkce vrátí True nebo False podle stavu připojení.