[Young]

Hola, para lo que necesitas utilizo la siguiente función:

Código Delphi [-]
function OnInternet: Boolean;
var
    flags: dword;
begin
     Result := InternetGetConnectedState(@flags, 0);
end;

Debes agregar en la cláusula uses la unit WinInet.

Saludos.