下面的例子代码,增加了一个新的节点到根,然后设置节点名字(Name)为Aname,节点值(value)为AValue: procedure AddNode(ADoc: TXmlDocument; AName