如何用Nativexml创建新的节点？

怎么用Nativexml创建新的节点？？？
如题

[解决办法]

Delphi(Pascal) code

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementationuses NativeXml;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var  vXML:TNativeXml;  vNode,vChildNode:TXmlNode;begin  vXML := TNativeXml.Create;  try    vXML.Root.Name := 'TestRoot';    //新增一个节点    vNode := vXML.Root.NodeNew('FirstNode');    //第一个节点的值    vNode.ValueAsString := 'Test';    //第一个节点增加一个属性为Name，值为harlan    vNode.AttributeAdd('Name','harlan');    //为第一个节点增加一个子节点    //具体的XML结构以此类推    vChildNode := vNode.NodeNew('ChildNode');    vXML.SaveToFile('文件路径');  finally    vXML.Free;  end;end;end.