Boa Tarde, Italo   Nesse ponto passou com a alteração feita, porém deu outros erros para baixo, conforme vou descrever agora.   1)  Nessa linha "FdocZip.Items.FInfZip := UnZip(StrDecod);"  porque a variável StrAux está em branco.        Se descomentar "StrAux := RetornarConteudoEntre(Leitor.Grupo, '>', '</docZip');" funcionou corretamente.   2) Nessa linha "if (oLeitorInfZip.rExtrai(2, 'retEvento') <> '') then", TROCAR POR if (oLeitorInfZip.rExtrai(2, 'retEvento