anchor.diff:    i: integer;
     Bookmark: TBookmark;
   Begin
  +(*
     BookmarksListBox.Items.BeginUpdate;
     BookmarksListBox.Clear;
   
  
positive.code:     AddMenuItem('View source of RichView component', '', @ViewSourceMIOnClick);
      AddMenuItem('Current topic properties', '', @miTopicPropertiesClicked);
      AddMenuItem('Dump dictionary to file in temp directory', '', @miDumpDictionaryClicked);
    end;
  
    miHelp := TfpgPopupMenu.Create(self);
  
negative.code:     procedure   miDebugHex(Sender: TObject);
      procedure   miToolsFindByResourceID(Sender: TObject);
      procedure   miToolsFindTopifByName(Sender: TObject);
      procedure   miToolsShowEnvVariablesClicked(Sender: TObject);
      procedure   miTopicPropertiesClicked(Sender: TObject);
      procedure   miDumpDictionaryClicked(Sender: TObject);
      procedure   miFileSaveTopicAsIPF(Sender: TObject);
  