anchor.diff:      // Used in loading contents
       procedure   AddChildNodes(AHelpFile: THelpFile; AParentNode: TfpgTreeNode; ALevel: longint; var ATopicIndex: longint );
       procedure   ClearNotes;
  +    procedure   ClearIndexComponents;
       procedure   SaveNotes(AHelpFile: THelpFile);
       procedure   DisplayTopic(ATopic: TTopic = nil);
       procedure   ResetProgress;
  
positive.code: 
  procedure TMainForm.MainFormDestroy(Sender: TObject);
  begin
    DisplayedIndex.Free;
    // save splitter position
    gINI.WriteInteger('Options', 'SplitterLeft', PageControl1.Width);
  
negative.code:     SaveNotes( lHelpFile );
    end;
  
    ClearIndexComponents;
    ClearAllWordSequences;
  
    // Now destroy help files
    for FileIndex := 0 to Files.Count - 1 do
  