چطور در برنامه دلفی بفهمیم که آیا کامپیوتر به اینترنت متصل هست یا نه؟

procedure TForm1.Button1Click(Sender: TObject) ;

function FuncAvail(_dllname, _funcname: string; var _p: pointer): boolean;
  {return True if _funcname exists in _dllname}
var _lib: tHandle;
begin
   Result := false;
   If LoadLibrary(PChar(_dllname)) = 0 then exit;
   _lib := GetModuleHandle(PChar(_dllname)) ;
   If _lib <> 0 then 
   begin
    _p := GetProcAddress(_lib, PChar(_funcname)) ;
    if _p <> NIL then Result := true;
   end;
end;

  {
  Call SHELL32.DLL for Win > Win98
  otherwise call URL.dll
  }
  {buton code:}
var
  InetIsOffline : function(dwFlags: DWORD):
                   BOOL; stdcall;
begin
   if FuncAvail('URL.DLL', 'InetIsOffline', @InetIsOffline) then
      if InetIsOffLine(0) = true  then 
          ShowMessage('Not connected')
     else 
          ShowMessage('Connected!') ;
end;

آیا ما به اینترنت متصل هستیم؟