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: 
  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
  