XMLDocument 生成xml问题(100分)

sss.xml 文件:
<?xml version="1.0" encoding="GB2312"?>
<学生花名册
xmln:xsi="http://www.w3.org"
xsi:nonamespaceschemlocation="shu.xsd">
<学生>
<性别>男</性别>
<姓名>李华</姓名>
<年龄>14</年龄>
<电话>6287555</电话>
</学生>
</学生花名册>
我想问tXMLDocument怎样生成这样的一个xml文件,如果没有xmln:xsi="http://www.w3.org"
xsi:nonamespaceschemlocation="shu.xsd"可以用以下代码,但怎样加上这段东东:

var
Parent_Node: IXMLNode; //指向学生结点
Child_node : IXMLNode; //指向学生的子结点

begin
XMLDocument1.Active := true;
XMLDocument1.Encoding := 'GB2312';
Root := XMLDocument1.AddChild('学生花名册')
Parent_Node := Root.AddChild('学生'); //根结点后添加一个学生结点
Child_Node := Parent_Node.AddChild('性别'); //学生结点后添加一个姓名结点
Child_Node.Text :='男';
Child_Node := Parent_Node.AddChild('姓名'); //学生结点后添加一个姓名结点
Child_Node.Text :='李华'; //设置姓名的文本值
Child_Node := Parent_Node.AddChild('年龄'); //此行起后四行与前两行类似
Child_Node.Text := '14'
Child_Node := Parent_Node.AddChild('电话');
Child_Node.Text := '6287555';
XMLDocument1.SaveToFile('sss.xml'); //把组织好的XML文档存于Output.xml文件中
XMLDocument1.Active := false; //钝化（关闭）
end;

这样做好像可以满足你的要求
procedure TForm1.btn1Click(Sender: TObject);
var
loXMLNode:IXMLNode;
begin
XMLDocument1.Active:=true;
loXMLNode:=XMLDocument1.Node.AddChild('Node1','http://www.163.com');
loXMLNode.Text:='Content1';
loXMLNode.DeclareNamespace('nonamespaceschemlocation','shu.xsd');
mmo1.Lines.Text:=XMLDocument1.XML.Text;
end;

接受答案了.