关于 TXMLDocument和IXMLDocument的问题？(100分)

怎么解决Delphi中XML的中文问题？
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XMLDoc, XMLIntf;
type
TfrmMain = class(TForm)
Memo: TMemo;
btnLoadXMLFile: TButton;
btnLoadXMLSTR: TButton;
OpenDialog: TOpenDialog;
btnMsg: TButton;
btnGetXMLDOM: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure btnLoadXMLFileClick(Sender: TObject);
procedure btnLoadXMLSTRClick(Sender: TObject);
procedure btnGetXMLDOMClick(Sender: TObject);
procedure btnMsgClick(Sender: TObject);
private
{ Private declarations }
XMLDOM: TXMLDocument;
IXMLDOM: IXMLDocument;
public
{ Public declarations }
end;

var
frmMain: TfrmMain;
implementation
{$R *.dfm}
procedure TfrmMain.FormCreate(Sender: TObject);
begin
XMLDOM := TXMLDocument.Create(Self);
//XMLDOM.Encoding := 'UTF-8';
end;

procedure TfrmMain.FormDestroy(Sender: TObject);
begin
XMLDOM.Free;
end;

procedure TfrmMain.btnLoadXMLFileClick(Sender: TObject);
begin
if OpenDialog.Execute and FileExists(OpenDialog.FileName) then
begin
//XMLDOM.Encoding := 'UTF-8';
XMLDOM.LoadFromFile(OpenDialog.FileName);
//XMLDOM.Encoding := 'UTF-8';
XMLDOM.GetInterface(IXMLDocument, IXMLDOM);
end;
end;

procedure TfrmMain.btnLoadXMLSTRClick(Sender: TObject);
begin
//XMLDOM.Encoding := 'UTF-8';
XMLDOM.LoadFromXML(Memo.Text);
//XMLDOM.Encoding := 'UTF-8';
end;

procedure TfrmMain.btnGetXMLDOMClick(Sender: TObject);
begin
XMLDOM.GetInterface(IXMLDocument, IXMLDOM);
end;

procedure TfrmMain.btnMsgClick(Sender: TObject);
begin
ShowMessage(IntToStr(IXMLDOM.ChildNodes[0].ChildNodes.Count));
end;

end.

呵呵。我没有用Create，
在新建的时间，我是把头保存在一个文本里面。要建立的时候取出来，然后给XMLDoc加节点。
不妨试试，实在没办法就这样做吧

有什么问题啊？

to UltraDelphi:
能说具体点吗，你意思不创建TXMLDocument吗？

encoding="GB2312"

to lwsi:
关键在装载XML前，还是后呢，我设置了，都不能用，何况XML文件中已经指定字符格式了，一装带汉字的就报错，你们可以自己看看。

在XML文件中先指定
<?xml version="1.0" encoding="GB2312"?>
装载时再指定??

先指定

各位高人能否帮我看看这个XML问题：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2266197
实在是搞不懂

接受答案了.