anchor.diff:  
   procedure TMainForm.MainFormDestroy(Sender: TObject);
   begin
  +  ClearAllWordSequences;
     DisplayedIndex.Free;
     // save splitter position
     gINI.WriteInteger('Options', 'SplitterLeft', PageControl1.Width);
  
positive.code:     SaveNotes( lHelpFile );
    end;
  
    DisplayedIndex.Clear;
  
    // Now destroy help files
    for FileIndex := 0 to Files.Count - 1 do
  
negative.code: 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);
  