anchor.diff:    lFilename: string;
     FullFilePath: string;
     HelpFile: THelpFile;
  +  FileIndex: integer;
   begin
     ProfileEvent('OpenFile');
     lFilename := AFilenames;
  
positive.code: 
  uses
    SysUtils, Classes, fpg_base, fpg_main, fpg_form, fpg_panel, fpg_tab,
    fpg_tree, fpg_splitter, fpg_menu, fpg_memo, fpg_button;
  
  type
  
  
negative.code:     procedure   FileOpen;
      function    OpenFile(const AFileNames: string): boolean;
      procedure   OnHelpFileLoadProgress(n, outof: integer; AMessage: string);
      procedure   LoadNotes(AHelpFile: THelpFile);
      procedure   LoadContents;
      // Used in loading contents
      procedure AddChildNodes(AHelpFile: THelpFile; AParentNode: TfpgTreeNode; ALevel: longint; var ATopicIndex: longint );
  
    public
      constructor Create(AOwner: TComponent); override;
  