anchor.diff:      ReadFontTableData;
       ParseFontTable;
       ReadReferencedFilesTable;
  +    
  +    // Fix text encoding
  +    for i := 0 to TopicCount-1 do
  +    begin
  +      lText := TTopic(TopicList[i]).Title;
  +      // apply encoding conversion
  +      case Encoding of
  +        encUTF8:      lText := IPFToUTF8(lText);
  +        encCP437:     lText := CP437ToUTF8(lText);
  +        encCP850:     lText := CP850ToUTF8(lText);
  +        encIBMGraph:  lText := IBMGraphToUTF8(lText);
  +      else
  +        lText := IPFToUTF8(lText);
  +      end;
  +      TTopic(TopicList[i]).Title := lText;
  +    end;
     except
       Close;
       raise;
  
positive.code: 
      if pEntryHeader^.TOCIndex < _Topics.Count then
      begin
        tmpIndexEntry := TIndexEntry.Create(EntryText, TTopic(_Topics[pEntryHeader^.TOCIndex]), pEntryHeader^.flags);
        _Index.Add(tmpIndexEntry);
      end
  
negative.code:                             _FontTable,
                              _ReferencedFiles );
  
          
      Topic.HelpFile := Self;
      Topic.Index := EntryIndex;
  
  