anchor.diff:      exit;
   
     if _pResourceData = nil then
  +  begin
       ReadFileBlock( _pResourceData,
                      _pHeader^.resstart,
  -                   _pHeader^.nres * sizeof( uint16 ) * 2 ); // list of IDs, list of topics
  +                   (_pHeader^.nres * sizeof( uint16 )) * 2 ); // list of IDs, list of topics
  +  end;
   
     pResourceIDs := _pResourceData;
     pTopicIndices := _pResourceData
  
positive.code: 
  
    THelpFile = class(TObject)
    protected
      _Filename : string;
      _FileSize : longint;
  
negative.code:     property Topics[ Index: longint ]: TTopic read GetTopic;
      property TopicList: TList read _Topics;
      property TopicCount: longint read GetTopicCount;
      property StringResourceIDCount: integer read GetStringResourceIDCount;
      property NumericResourceIDCount: integer read GetNumericResourceIDCount;
      property Index: TIndex read GetIndex;
      property Filename: string read _FileName;
  
  