anchor.diff:    Result := Topic.HelpFile as THelpFile;
   end;
   
  +function THelpFile.GetStringResourceIDCount: integer;
  +begin
  +  Result := _pHeader^.nname;
  +end;
  +
  +function THelpFile.GetNumericResourceIDCount: integer;
  +begin
  +  Result := _pHeader^.nres;
  +end;
  +
   procedure THelpFile.InitMembers;
   begin
     _SlotDataSize := 0;
  
positive.code: 
  
    THelpFile = class(TObject)
    protected
      _Filename : string;
      _FileSize : longint;
  
negative.code:     exit;
  
    if _pResourceData = nil then
    begin
      ReadFileBlock( _pResourceData,
                     _pHeader^.resstart,
                     (_pHeader^.nres * sizeof( uint16 )) * 2 ); // list of IDs, list of topics
    end;
  
    pResourceIDs := _pResourceData;
    pTopicIndices := _pResourceData
  