XML разборка

[Gudzik11]

-<forecast>
   +<day date="2011-11-24" hour="21"></day>
   -<day date="2011-11-25" hour="3">
      <cloud>0</cloud>
      <pict>_0_moon.gif</pict>
      <ppcp>0</ppcp>
       <t>
         <min>-8</min>
         <max>-6</max>
      </t>
      <p>
         <min>762</min>
         <max>764</max>
     </p>
      <wind>
          <min>2</min>
          <max>4</max>
          <rumb>225</rumb>
     </wind>
     <hmid>
          <min>63</min>
          <max>65</max>
    </hmid>
          <wpi>71</wpi>
  +<day date="2011-11-25" hour="9"></day>
  +<day date="2011-11-25" hour="15"></day>
  +<day date="2011-11-25" hour="21"></day>
  +<day date="2011-11-26" hour="3"></day>
  +<day date="2011-11-26" hour="9"></day>
  +<day date="2011-11-26" hour="15"></day>
  +<day date="2011-11-26" hour="21"></day>
  +<day date="2011-11-27" hour="3"></day>
  +<day date="2011-11-27" hour="9"></day>
  +<day date="2011-11-27" hour="15"></day>
  +<day date="2011-11-27" hour="21"></day>
  +<day date="2011-11-28" hour="3"></day>
  +<day date="2011-11-28" hour="9"></day>
  +<day date="2011-11-28" hour="15"></day>
  +<day date="2011-11-28" hour="21"></day>
<day/>
<day/>
<day/>

выташить значение
<cloud>
из подраздела

-<day date="2011-11-25" hour="3">

делаю так

Label20.CAPTION := XMLDocument1.DocumentElement.ChildNodes['forecast'].ChildNodes['day'].ChildNodes['cloud'].Text;

выводит значение с первого раздела
<day date="2011-11-24" hour="21"></day>

подскажите как вытащить значение
<cloud>
из другого ко кого нибудь подраздела

[Человек_Борща]

При помощи NativeXML я вытащил так:

procedure TForm1.Button1Click(Sender: TObject);
var
  XML: TNativeXml;
  i, i2: Integer;
begin
  xml := TNativeXml.CreateName('forecast');
  try
    xml.LoadFromFile(ExtractFilePath(ParamStr(0)) + '1.xml');
    for i := 0 to xml.Root.NodeCount - 1 do
    begin
      with xml.Root.Nodes[i] do
      begin
        i2 := ReadInteger('cloud');
        ShowMessage(IntToStr(i2));
      end;
    end;
  finally
    FreeAndNil(XML);
  end;
end;

[Gudzik11]

а где скачать NativeXML для delphi 7