anchor.diff:    AShift: TShiftState; const AMousePos: TPoint);
   begin
     if tvContents.Selection <> nil then
  -    DisplayTopic;
  +    DisplayTopic(nil);
   end;
   
   procedure TMainForm.lbIndexDoubleClick(Sender: TObject; AButton: TMouseButton;
     AShift: TShiftState; const AMousePos: TPoint);
   begin
  -  DisplayTopic;
  +  DisplayTopic(nil);
   end;
   
   procedure TMainForm.lbSearchResultsDoubleClick(Sender: TObject; AButton: TMouseButton;
     AShift: TShiftState; const AMousePos: TPoint);
   begin
  -  DisplayTopic;
  +  DisplayTopic(nil);
   end;
   
   procedure TMainForm.btnSearchClicked(Sender: TObject);
  
positive.code:   ,fpg_iniutils
    ,nvUtilities
    ,ACLStringUtility
    ,HelpTopic
    {$IFDEF Timing}
    ,EpikTimer
    {$ENDIF}
  
negative.code:   SysUtils, Classes, fpg_base, fpg_main, fpg_form, fpg_panel, fpg_tab,
    fpg_tree, fpg_splitter, fpg_menu, fpg_button, fpg_listbox,
    fpg_label, fpg_edit, fpg_radiobutton, fpg_progressbar, fpg_mru,
    HelpFile, RichTextView, HelpTopic;
  
  type
    // Used by Index ListBox. We can generate a custom Index if the help file
    // doesn't contain it's own index entries.
    TListType = ( ltContents, ltIndex );
  
    TMainForm = class(TfpgForm)
    private
  