【求助】Delphi xml的ENCODING=“UTF-8”为ACTIVE的时候，提示错误

Question

        FXMLDoc := LoadXMLDocument(FFileName);
        FXMLDoc.XML.Clear;
        FNewDoc := False;
        SetDefaultXML;
        FXMLDoc.Active := True;
        FXMLDoc.SaveToFile(FFileName);
当程序运行到FXMLDoc.Active := True;的时候，提示无效字符，是Append('      <UnitName> '+CompanyName+'</UnitName>');的出现了中文，请问如何解决？？但ENCODING=“GB2312”的时候，没问题？

Answer 1

那就把内容用base64编码，然后读取时，解码，函数delphi自身就有

Answer 2

Append(' <UnitName> '+CompanyName+'</UnitName>');
就这一句话，CompanyName只是个变量，怎么base64啊，没用过，能指点否？