anchor.diff:    lFilename: string;
     FullFilePath: string;
     HelpFile: THelpFile;
  +  FileIndex: integer;
   begin
     ProfileEvent('OpenFile');
     lFilename := AFilenames;
  
positive.code:     procedure   FileOpen;
      function    OpenFile(const AFileNames: string): boolean;
      procedure   OnHelpFileLoadProgress(n, outof: integer; AMessage: string);
  
    public
      constructor Create(AOwner: TComponent); override;
  
negative.code: 
  {@VFD_NEWFORM_DECL}
  
  const
    cTitle = 'fpGUI Help Viewer';
  
  implementation
  
  uses
    fpg_dialogs, fpg_constants, nvUtilities, HelpTopic;
  
  
  {@VFD_NEWFORM_IMPL}
  