anchor.diff:      procedure   miDebugHex(Sender: TObject);
       procedure   miToolsFindByResourceID(Sender: TObject);
       procedure   miToolsFindTopifByName(Sender: TObject);
  +    procedure   miTopicPropertiesClicked(Sender: TObject);
       procedure   miFileSaveTopicAsIPF(Sender: TObject);
       procedure   OnMRUMenuItemClick(Sender: TObject);
       procedure   btnShowIndex(Sender: TObject);
  
positive.code:       TfpgMessageDialog.Critical( 'Find Topic By Name', 'Topic name not found' );
  end;
  
  procedure TMainForm.miFileSaveTopicAsIPF(Sender: TObject);
  var
    F: TextFile;
  
negative.code:     SetPosition(292, 216, 132, 20);
      AddMenuItem('Expand All', '', @miViewExpandAllClicked);
      AddMenuItem('Collapse All', '', @miViewCollapseAllClicked);
      AddMenuItem('-', '', nil);
      AddMenuItem('Topic Properties', '', @miTopicPropertiesClicked);
    end;
  
    miTools := TfpgPopupMenu.Create(self);
  