anchor.diff:    Debug := not Debug;
     miDebugHexInfo.Checked := Debug;
     DisplayTopic(nil);
  +end;
  +
  +procedure TMainForm.miToolsFindByResourceID(Sender: TObject);
  +var
  +  ResourceIDString: string;
  +  ResourceID: word;
  +begin
  +  if not fpgInputQuery('Find Resource ID', 'Enter the resource ID to find', ResourceIDString) then
  +    exit;
  +  try
  +    ResourceID := StrToInt(ResourceIDString);
  +  except
  +    TfpgMessageDialog.Critical('Find Resource ID', 'Invalid resource ID entered');
  +    exit;
  +  end;
  +
  +  if not DisplayTopicByResourceID( ResourceID ) then
  +    TfpgMessageDialog.Critical('Find Resource ID', 'Resource ID not found');
  +end;
  +
  +procedure TMainForm.miToolsFindTopifByName(Sender: TObject);
  +var
  +  TopicNameString: string;
  +Begin
  +  if not fpgInputQuery( 'Find Topic By Name',
  +                       'Enter the topic name to search for',
  +                       TopicNameString ) then
  +    exit;
  +
  +  if not DisplayTopicByName( TopicNameString ) then
  +    if not DisplayTopicByGlobalName( TopicNameString ) then
  +      TfpgMessageDialog.Critical( 'Find Topic By Name', 'Topic name not found' );
   end;
   
   procedure TMainForm.miFileSaveTopicAsIPF(Sender: TObject);
  
positive.code:     Name := 'miTools';
      SetPosition(428, 96, 120, 20);
      AddMenuItem('Show file info', '', @miDebugHeader);
      AddMenuItem('View source of RichView component', '', @ViewSourceMIOnClick);
    end;
  
  
negative.code:     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);
  