Dúvida na Leitura dos Itens XML

[Pablo Ricardo]

 

         for n := 0 to acbrnfMain.NotasFiscais.Items[0].NFe.Det.Count - 1 do
          begin
            with acbrnfMain.NotasFiscais.Items[n].NFe.Det.Items[0] do
            begin
              CodProd := dtmdlmnConfig.GetCodProd(CodSessao, CodEstab,
                Prod.cProd);

              if CodProd = 0 then
                dtmdlmnImport.SaveProduto(CodSessao, CodEstab, Prod.cProd,
                  Prod.xProd, Prod.NCM);

              CodProd := dtmdlmnConfig.GetCodProd(CodSessao, CodEstab,
                Prod.cProd);

              case Imposto.ICMS.orig of
                oeNacional:
                  Origem := 0;
                oeEstrangeiraImportacaoDireta:
                  Origem := 1;
                oeEstrangeiraAdquiridaBrasil:
                  Origem := 2;
                oeNacionalConteudoImportacaoSuperior40:
                  Origem := 3;
                oeNacionalProcessosBasicos:
                  Origem := 4;
                oeNacionalConteudoImportacaoInferiorIgual40:
                  Origem := 5;
                oeEstrangeiraImportacaoDiretaSemSimilar:
                  Origem := 6;
                oeEstrangeiraAdquiridaBrasilSemSimilar:
                  Origem := 7;
                oeNacionalConteudoImportacaoSuperior70:
                  Origem := 8;
              end;
              SaveNFeItem(CodSessao, CodEstab, ChvNFe, IntToStr(Prod.nItem),
                CodProd, Prod.xProd, Prod.qCom, Prod.uCom, Prod.vProd,
                Prod.vDesc, IntToStr(Origem), Prod.CfOp, '', 0, 0, 0, 0, 0, 0,
                '', '', '', 0, 0, 0, '', 0, 0, 0, 0, 0, '', 0, 0, 0, 0, 0);
            end;

Estou com problemas nesse contador pra recuperar todos os itens do XML. Qual a lógica correta?

Pra ser mais preciso aqui:

     for n := 0 to acbrnfMain.NotasFiscais.Items[0].NFe.Det.Count - 1 do
          begin
            with acbrnfMain.NotasFiscais.Items[n].NFe.Det.Items[0] do
            begin

Só vai o primeiro item, tenho que por outro cont mais não estou entendendo a lógica.

Me desculpem. O correto era 

         for n := 0 to acbrnfMain.NotasFiscais.Items[0].NFe.Det.Count - 1 do
          begin
            with acbrnfMain.NotasFiscais.Items[0].NFe.Det.Items[n] do
            begin
              CodProd := dtmdlmnConfig.GetCodProd(CodSessao, CodEstab,
                Prod.cProd);

 

[André Ferreira de Moraes]

with acbrnfMain.NotasFiscais.Items[0].NFe.Det.Items[n] do