Olá, segue abaixo:
try
ACBrNFe1.DistribuicaoDFePorUltNSU(ACBrNFe1.Configuracoes.WebServices.UFCodigo,
OnlyNumber(vCNPJ),
DistriUltNSU);
except On E: Exception do
mmLog.Lines.Add(DateTimeToStr(Now)+' - '+'Erro: '+e.Message);
end;
mmLog.Lines.Add(DateTimeToStr(Now)+' - '+ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo+' NSU:'+DistriUltNSU);
for i := 0 to ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count -1 do
begin
Application.ProcessMessages;
AQUI ESTA O XML (ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.XML;)
end;