anchor.diff:      CurrentHistoryIndex: integer;
       OpenAdditionalFile: boolean;
       Notes: TList; // Notes in current files.
  +    Bookmarks: TList;
   
       procedure   Splitter1DoubleClicked(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint);
       procedure   btnTBNoteAddClick(Sender: TObject);
  
positive.code:   ,CanvasFontManager
    ,HelpNote
    ,RichTextDocumentUnit
    ;
  
  const
  
negative.code:   FFileOpenRecent := nil;   // it was a reference only
    miOpenRecentMenu.Free;
  //  DestroyListAndObjects(Files);
    DestroyListAndObjects(Bookmarks);
    DestroyListAndObjects(Notes);
    DestroyListAndObjects(AllFilesWordSequences);
    DestroyListAndObjects(CurrentOpenFiles);
  