一个xml显示问题

Question

var
  xmldoc:ixmldocument;
  valuenode,xmltreenode:ixmlnode;
  lintnum:integer;
  xmlstr:string;
  fp:integer;
  begin
  xmlstr:='<?xml version="1.0"  encoding="gb2312">';
  xmlstr:=xmlstr+'<user></user>';
  fp:=filecreate('F.xml');
  filewrite(fp,xmlstr[1],length(xmlstr));
  fileclose(fp);
  xmldoc:=txmldocument.create(application);  xmldoc.loadfromfile('F.xml');
  xmldoc.active:=true;
  xmltreenode:=xmldoc.node;
  xmltreenode:=xmldoc.documentelement;
  xmldoc.options:=xmldoc.options+[donodeautoindent];
  //动态生成xml
  for lintnum:=0 to 1 do
  begin
  valuenode:=xmltreenode.addchild('shit');
  valuenode.text:='text';  end;
这个只可以显示<user>
              <shit>text</shit>
              <shit>text</shit>
              </user>
一层的，如果比较复杂的，比如
            <user>
            <user1>
            <shit>text</shit>
            </user1>
            <user2>
             . . .
            </user>
应该怎磨修改呢，有个程序输出为xml格式，结果都处理好拉，就差这个，谁能帮帮俺

Answer 1

已解决，送分 
谁能给点 delphi手动输出xml的资料磨？

Answer 2

晕，还是 不懂
 bNode:=aNode.AddChild(result1);
result1是变化的字符串参数，应该怎磨写才是正确的？

Answer 3

不好意思，开始急拉点，第一贴作废；
总结一下就是：
bNode:=aNode.AddChild(result1);
result1是变化的字符串参数，应该怎磨写才是正确的？