Fórum Dúvida com XML. #561638

Caros.
Tenho a procedure abaixo dentro do clique de um botão. Está tudo certo. O XML que está alimentando o vXMLDoc está na mesma pasta onde se encontra o executável. A minha grande dúvida (tenho muitas em relação ao XML) e vou me abster a esta é:

Como ler sequencialmente, digamos, 100 xml's dentro de uma pasta 'C:\\Teste' ?? (O exe está numa outra pasta ex. c:\\sistema). Quais componentes, comandos, usar. Uso delphi XE5.



procedure TForm1.btn1Click(Sender: TObject);
var
vXMLDoc:TXMLDocument;
Node01,Node02,Node03: IXMLNode;

begin
vXMLDoc:=TXMLDocument.Create(Self);
vXMLDoc.LoadFromFile('43160701065411000128650020000041651256793449-nfce.xml');
Node01:= vXMLDoc.DocumentElement.ChildNodes.FindNode('NFe');
Node02:= Node01.ChildNodes.FindNode('infNFe');
Node03:= Node02.ChildNodes.FindNode('pag');
showmessage('Condição de pagamento desta NFCe é: '+ Node03.ChildNodes['tPag'].Text);
end;
end.