Italo,Boa Tarde! Resolvi o meu problema , olhei no demo o botão : Adicionar nfeProc ao XML, e peguei o cádigo de lá, que é justamente isso que eu queria, que ele colocasse o
protocolo no xml que estava faltando. Só mudei uma coisa, talvez sirva para alguém: no comando NomeArq := StringReplace(NomeArq,'-nfe.xml','-procNfe.xml',[rfIgnoreCase]); ele vai salvar um arquivo igual o original com a extensão -procNfe.xml. Coloquei a função desta maneira: NomeArq := StringReplace(NomeArq,'-nfe.xml','-Nfe.xml',[rfIgnoreCase]); dai ele mantém o mesmo arquivo colocando a parte que falta.
Obrigado pela atenção! Abraço!