Boa tarde! Fiz uma pequena alteração para que sejam manifestadas somente as notas resumidas, então a chave não fica em branco.
Mas o problema é na comparação dos schemas:
if TACBrNfe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[pIndex].schema in SCHEMAS then
Exit;
O erro dá aí, não na hora de manifestar.
OBS: Esse 'SCHEMAS' é um array de TSchemaDfe, que contém: [schprocNFe, schprocEventoNFe], garantindo que sempre dê Exit caso não seja resumo, mas novamente, o erro estoura na comparação de schemas, e não na manifestação... não sei se consegui explicar de maneira clara...