recorrer XML con IXMLnode

[miquellg]

Hola de nuevo,
necesito crear un bucle para leer un archivo xml pero no lo consigo. La estructura tendria un esqueleto similar a:

<pedido>
  <cliente>pepe</cliente>
  <adres>cuesta 23</adres>
   ...
  <articulos>
     <articulo id='AAA'>
         <precio>56,00</precio>
         <peso>6</peso>
         ...
     </articulo>
     <articulo id='BBB'>
         <precio>6,40</precio>
         <peso>3,25</peso>
         ...
     </articulo>
     ....
  </articulos>
</pedido>

necesito crear un bucle para obtener el id de cada artículo pero no lo consigo, tampoco vi ningún hilo que me ayudara. Supongo que no es difícil pero llevo demasiado tiempo perdido en este tema.

Trabajo con los componentes TXMLDocument y IXMLNode:

Código Delphi [-]
 XMLDoc.LoadFromFile(nomfile);
 XMLDoc.Active   := true;
 XMLDoc.Version  := '1.0';
 
with XMLDoc.DocumentElement do
    begin
        nodoRaiz := ChildNodes.FindNode('articulos');
        nodoRaiz.ChildNodes.First;
        for x:= 1 to (nodoRaiz.ChildNodes.Count) do
              begin
                   node2 := nodoRaiz.ChildNodes.FindNode('articulo');
                   xxx   := node2.Attributes['id'];
                   showmessage(' articulo  : ' + xxx );

                   nodoRaiz := nodoRaiz.ChildNodes.NextSibling;
               end;
     end;

gracias

[miquellg]

Hola de nuevo,

he estado buscando de nuevo por los foros de la web y he visto que no soy el único que se ha encontrado con este problema. ¿Hay alguna solución posible?