A. 1.在MDIForm上放置webBrowser元件  
     2.在 onFormCreate中放置要瀏覽的網頁檔案 
         webBrowser1.Navigate(Extractfilepath(Application.ExeName)+'WebMenu\index.htm');               
         把FrontPage做好的網頁放在 $Exe\WebMenu\index.htm       $Exe=執行檔所在路徑 
     3. webBrowser1  -> BeforeNavigate2中增加下列程式
         procedure TformStock.WebBrowser1BeforeNavigate2(Sender: TObject;
                          const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
                         Headers: OleVariant; var Cancel: WordBool);
          var
              i , k , iTag:integer;
          begin
           i:=pos('#',URL);   // 將網頁的中的超連結全部設定書籤(請用數字表功能 編號)
           if i<>0 then
             try
               iTag:=StrToInt(copy(URL,i+1,Length(URL)-i));
             except
               iTag:=0;
            end;
            Cancel:=i<>0;              // 表此連結可能是外部連結(不是數字)
            if i<>0 then
              case iTag of
                 99996: SetCompanyExecute(Sender); //公司設定
                 99997: SetRightCMDExecute(Sender); //權限設定
                 99998: CloseCMDExecute(Sender);
                 99999: LogoutCMDExecute(Sender);             // >90000特殊功能用
              else
                 for k:=0 to ComponentCount-1 do                 // 書籤號碼對應 TAction 的 Tag
                   if Components[k] is TAction then
                     if TAction(Components[k]).Tag=iTag then
                       TAction(Components[k]).Execute;
               end;
          end;