在线等，请问读取utf-16的xml变utf-8而且中文乱码问题

请问读取utf-16的xml变utf-8而且中文乱码问
文件里是<?xml version="1.0" encoding="utf-16" standalone="yes" ?>
读到文本框里显示：<?xml version="1.0" encoding="utf-8" standalone="yes" ?>
请问如何可以识别utf-16的xml


代码如下
Delphi(Pascal) code

procedure TForm1.btn13Click(Sender: TObject);
var
  xx: WideString;
 xml:TXMLDocument;
begin
  xml := TXMLDocument.Create(self);
  xml.LoadFromFile('C:\xml.xml');

  xx:= xml.XML.text;
  ado1.edit;   //ado数据控件
  dbmmoee.Text := xml.XML.Text;
  ado1.Post;
  xml.free;
end;

xml.Encoding:='UTF-16'; {设置语言}

已经用过这个，不过现在已经解决了