delphi7 XMLDocument 根节点属性问题

[qq_29737649]

var
Xml: TXMLDocument;
Rootnode,node : IXMLNode;
begin
Xml := TXMLDocument.Create(nil);
// Xml.LoadFromFile('aaa.xml');
try
//加入版本信息 ‘<?xml version="1.0" encoding="GB2312" ?> ’
Xml.Active := True;
Xml.Version := '1.0';
Xml.Encoding :='GB2312';

Rootnode := Xml.CreateNode('CIF_INFO');
Rootnode.Attributes['a']:='1.0';
Rootnode.Attributes['xmlns']:='http:\\aaa.com';

Xml.DocumentElement := Rootnode;
node := Xml.CreateNode('TXNCODE');
Rootnode.ChildNodes.Add(node);
node.Text := '420001';

Xml.SaveToFile('aaa.xml');
xml.Active := False;
showmessage('创建成功！');
finally
Xml.Free;
end;
end;

生成xml 文件

<?xml version="1.0" encoding="GB2312" ?>
- <CIF_INFO a="1.0" xmlns="http:\\aaa.com">
<TXNCODE xmlns="">420001</TXNCODE>
</CIF_INFO>

中 TXNCODE xmlns="" 如何去掉 xmlns=""

正确的应该为
<?xml version="1.0" encoding="GB2312" ?>
- <CIF_INFO a="1.0" xmlns="http:\\aaa.com">
<TXNCODE>420001</TXNCODE>
</CIF_INFO>

请高手指点一下！谢谢！