生成XML的时候如何加多级节点?

[路过路人乙]

我代码如下:

_di_IXMLDocument xml = NewXMLDocument();
xml->Active = true;
xml->Options = xml->Options << doNodeAutoIndent;
xml->Encoding="utf-8";
_di_IXMLNode xMessage = xml->AddChild("Message");
 _di_IXMLNode xHeader = xMessage->ChildNodes->FindNode(WideString("Header"));
xHeader->AddChild("message_id");
_di_IXMLNode xmessage_id = xHeader->ChildNodes->FindNode(WideString("message_id"));
xmessage_id->Text = WideString("9");

这样就可以生成一个XML文档了.但是我希望有多个message_id值.生成如下效果:

<?xml version="1.0" encoding="utf-8"?>
<Message>
  <Header>
    <message_id>9</message_id>
  </Header>
 <Header>
    <message_id>9</message_id>
  </Header>
</Message>

请问要如何改动?