anchor.diff:  procedure TMainForm.ClearNotes;
   begin
     { TODO -oGraeme : Implement me }
  +end;
  +
  +procedure TMainForm.ClearIndexComponents;
  +begin
  +  IndexSearchEdit.Clear;
  +  lbIndex.FocusItem := -1;
  +  lbIndex.Items.Clear;
  +  DisplayedIndex.Clear;
  +  IndexLoaded := False;
   end;
   
   procedure TMainForm.SaveNotes(AHelpFile: THelpFile);
  
positive.code:     // Used in loading contents
      procedure   AddChildNodes(AHelpFile: THelpFile; AParentNode: TfpgTreeNode; ALevel: longint; var ATopicIndex: longint );
      procedure   ClearNotes;
      procedure   SaveNotes(AHelpFile: THelpFile);
      procedure   DisplayTopic(ATopic: TTopic = nil);
      procedure   ResetProgress;
  
negative.code:     SaveNotes( lHelpFile );
    end;
  
    ClearIndexComponents;
    ClearAllWordSequences;
  
    // Now destroy help files
    for FileIndex := 0 to Files.Count - 1 do
  