线程类中使用Txmldocument组件错误

Question

TempXml := TXMLDocument.Create(nil);
  TempXml.Active := false;
  TempXml.XML.Text:=strXml;
  TempXml.Active := true;
  TempXml.Version:='1.0';
  TempXml.Encoding :='gb2312';当运行到此处，总是报错误，哪里设置不对吗？请高手帮忙看一下吧。
  TempXml.SaveToFile(ExtractFilePath(paramstr(0))+sNewOrdrTBTyp+'.xml');
  try
  XMLNode1:= TempXml.DocumentElement;
  if  XMLNode1.NodeName <> 'trades_sold_get_response' then exit;
  try
  XMLNode1:= TempXml.ChildNodes.Nodes['trades_sold_get_response'];
  except
  end;

Answer 1

TempXml.Encoding :='gb2312';当运行到此处，总是报错误，哪里设置不对吗？请高手帮忙看一下吧。这种写法我在DELPHI7中也报错。
我的解决方案是：
TempXml.Encoding :='gb2312'---删除TempXml.XML.Text:=AnsiToUtf8(strXml);