Boa Tarde !
Estou novamente com a mesma situação que já havia sido corrigido nesse tópico
"2) Nessa linha "if (oLeitorInfZip.rExtrai(2, 'retEvento') <> '') then", TROCAR POR if (oLeitorInfZip.rExtrai(2, 'retEventoCTe') <> '') then"
Observe na imagem abaixo da revisão 16818.
Dessa forma, o componente não carrega as informações
ACBrCTe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.procEvento.RetinfEvento.chDFe;
Não sei se a mesma unit é utilizada para NFe e como vem essa tag para NFe. Não tenho esse exemplo agora.
Att.
Leandro
3106105019020463992200010257001000017309100021702602-procEventoCTe.xml