anchor.diff:      procedure ReadFontTableData;
       procedure ParseFontTable;
   
  -    function GetTopic( Index: longint ): TTopic;
  +    function GetTopic( AIndex: longint ): TTopic;
       function GetTopicCount: longint;
   
       function GetDictionaryCount: longint;
  -    function GetDictionaryWord( Index: longint ): string;
  +    function GetDictionaryWord( AIndex: longint ): string;
   
       function GetHighlightWords: UInt32ArrayPointer;
   
  
positive.code:   Result := _Dictionary.Count;
  end;
  
  function THelpFile.GetDictionaryWord( Index: longint ): string;
  begin
    Result := _Dictionary[ Index ];
  end;
  
  
  
negative.code:   end;
  end;
  
  function THelpFile.GetTopic( AIndex: longint ): TTopic;
  begin
    if    ( AIndex < 0 )
       or ( AIndex > _Topics.Count - 1 ) then
      Result := nil
    else
      Result := TTopic(_Topics[ AIndex ]);
  end;
  
  function THelpFile.GetTopicCount: longint;
  