anchor.diff:    DisplayTopic;
   end;
   
  +procedure TMainForm.miMRUClick(Sender: TObject; const FileName: String);
  +begin
  +  OpenFile(FileName);
  +end;
  +
   procedure TMainForm.btnShowIndex(Sender: TObject);
   var
     Count: integer;
  
positive.code:     AddMenuItem('Product Information...', '', @miHelpProdInfoClicked);
    end;
  
    btnIndex := TfpgButton.Create(tsIndex);
    with btnIndex do
    begin
  
negative.code:     AddMenuItem('Open...', '', @miFileOpenClicked);
      AddMenuItem('Close', '', @miFileCloseClicked);
      AddMenuitem('-', '', nil);
      FFileOpenRecent := AddMenuItem('Open Recent...', '', nil);
      AddMenuitem('-', '', nil);
      AddMenuItem('Quit', '', @miFileQuitClicked);
    end;
  
  