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:   Result := Topic.HelpFile as THelpFile;
  end;
  
  procedure THelpFile.InitMembers;
  begin
    _SlotDataSize := 0;
  
negative.code: 
  
    THelpFile = class(TObject)
    private
      function GetStringResourceIDCount: integer;
      function GetNumericResourceIDCount: integer;
    protected
      _Filename : string;
      _FileSize : longint;
  