Ler as Tag de Pagamento

[Arnaldo Cruz]

Estou tentanto ler as tag de pagamento do xml mas não estou conseguindo

-<pag>
    -<detPag>
        <tPag>03</tPag>
        <vPag>550.00</vPag>
        -<card>
            <tpIntegra>1</tpIntegra>
            <CNPJ>99999999999999</CNPJ>
            <tBand>01</tBand>
            <cAut>251925508</cAut>
        </card>
    </detPag>
</pag>

Preciso pegar o valor da tag TPAG e CAUT

Já tentei assim

for i := 0 to pag.Count-1 do
begin
           EdtFPagto := pag.Items.tPag;
end;

Assim

with pag do
begin
           EdtFPagto  :=  pag.Items[0].tPag;
 end;

Não da certo

 

Obrigado

[FabianoCunha]

Arnaldo, 

Não testei o código abaixo, apenas coloquei uma ideia de código, espero que possa de ajudar. A Ideia é para cada nota fiscal carregada no componente do ACBR, você percorre a collection de Pag e pega a instancia corrente e ai pode acessar os valores.

var pagamento: TpagCollection;

 

for i:=0 to ACBrNFe1.NotasFiscais[0].NFe.pag.count -1 do

begin

 pagamento:=  ACBrNFe1.NotasFiscais[0].NFe.pag;

pagamento.indPag

pagamento.tPag

end;