这个XML文件要怎么读取出来

文件内容如下：
<?xml version="1.0" encoding="UTF-8"?>
<extinfo>
  <portfolio>
    <id>200</id>
    <zh_name>LB组合</zh_name>
    <zh_code>888001</zh_code>
    <zh_initdate>2012-02-20</zh_initdate>
    <risk>风险888001</risk>
    <ploy>概况888001</ploy>
    <zh_amount>80000</zh_amount>
    <stock>
      <MarketId>0</MarketId>
      <SecuCode>000001</SecuCode>
      <Weight>50.000000</Weight>
    </stock>
    <stock>
      <MarketId>1</MarketId>
      <SecuCode>600009</SecuCode>
      <Weight>50.000000</Weight>
    </stock>
  </portfolio>
  <portfolio>
  ...
  </portfolio>
</extinfo>portfolio节点下的单节点我知道读，关键是怎么把stock节点下的子节点数据读取出来，stock节点的数量是不固定的。
开发环境Delphi7。xmldelphiencoding