Verificar conexão de internet no Windows com Delphi

Uses

  WinInet;

function IsConectadoNaInternet: Boolean;

begin

  Result := InternetCheckConnection('http://www.google.com.br/', 1, 0);

end;

http://msdn.microsoft.com/en-us/library/aa452092.aspx