Are we connected to the Internet?

Here's how to check whether you are connected to the Internet

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
}
{button 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;