anchor.diff:      procedure   miHelpUsingDocView(Sender: TObject);
       procedure   miDebugHeader(Sender: TObject);
       procedure   miDebugHex(Sender: TObject);
  +    procedure   miToolsFindByResourceID(Sender: TObject);
  +    procedure   miToolsFindTopifByName(Sender: TObject);
       procedure   miFileSaveTopicAsIPF(Sender: TObject);
       procedure   OnMRUMenuItemClick(Sender: TObject);
       procedure   btnShowIndex(Sender: TObject);
  
positive.code:   Debug := not Debug;
    miDebugHexInfo.Checked := Debug;
    DisplayTopic(nil);
  end;
  
  procedure TMainForm.miFileSaveTopicAsIPF(Sender: TObject);
  
negative.code:     Name := 'miTools';
      SetPosition(428, 96, 120, 20);
      AddMenuItem('Show file info', '', @miDebugHeader);
      AddMenuItem('Find topic by resource ID', '', @miToolsFindByResourceID);
      AddMenuItem('Find topic by resource name', '', @miToolsFindTopifByName);
      miDebugHexInfo := AddMenuItem('Toggle hex INF values in contents', '', @miDebugHex);
      AddMenuItem('View source of RichView component', '', @ViewSourceMIOnClick);
    end;
  
  