anchor.diff:  end;
   
   procedure TMainForm.DisplaySelectedSearchResultTopic;
  -begin
  -  //
  +var
  +  Topic: TTopic;
  +begin
  +  if lbSearchResults.FocusItem = -1 then
  +    exit;
  +  if lbSearchResults.Items.Objects[lbSearchResults.FocusItem] = nil then
  +    // the "no results" place holder
  +    exit;
  +  Topic := lbSearchResults.Items.Objects[lbSearchResults.FocusItem] as TTopic;
  +  DisplayTopic( Topic );
   end;
   
   procedure TMainForm.EnableControls;
  
positive.code:     IndexLoaded: boolean;
      ContentsLoaded: boolean;
      DisplayedIndex: TStringList; // duplicate of index listbox, for fast case insensitive searching
  
  
      procedure   MainFormShow(Sender: TObject);
      procedure   MainFormDestroy(Sender: TObject);
  
negative.code:   lHelpFile: THelpFile;
  begin
  writeln('DEBUG:  TMainForm.Destroy >>>>');
    CurrentTopic := nil;  // it was a reference only
    FFileOpenRecent := nil;   // it was a reference only
    DestroyListAndObjects(Files);
    DestroyListAndObjects(AllFilesWordSequences);
  