Nos meus teste eu estava tendo o mesmo problema (utilizando ambiente de homologação) e também utilizo ambiente nacional.
Tente setar o campo cOrgao, por exemplo:
...
with frmNfe.cNFe.EventoNFe.Evento.Add do
begin
infEvento.chNFe := Chave;
infEvento.CNPJ := CNPJ;
InfEvento.cOrgao := StrToInt(Copy(Chave,1,2));
infEvento.dhEvento := Data;
infEvento.tpEvento := teCCe;
infEvento.nSeqEvento := StrToInt(nSeqEvento);
infEvento.detEvento.xCorrecao := Correcao;
end;
...
Aqui, repito, utilizei ambiente de homologação e deu certo, conforme retorno:
- <retEnvEvento versao="1.00" xmlns="http://www.portalfiscal.inf.br/nfe">
<idLote>1</idLote>
<tpAmb>2</tpAmb>
<verAplic>SVAN_2.1.0</verAplic>
<cOrgao>21</cOrgao>
<cStat>128</cStat>
<xMotivo>Lote de evento processado</xMotivo>
- <retEvento versao="1.00">
- <infEvento Id="ID421130000004747" xmlns="http://www.portalfiscal.inf.br/nfe">
<tpAmb>2</tpAmb>
<verAplic>SVAN_2.1.0</verAplic>
<cOrgao>21</cOrgao>
<cStat>135</cStat>
<xMotivo>Evento registrado e vinculado a NF-e</xMotivo>
<chNFe>21130312152120000193550010000000731000000731</chNFe>
<tpEvento>110110</tpEvento>
<nSeqEvento>1</nSeqEvento>
<dhRegEvento>2013-03-30T20:32:16-03:00</dhRegEvento>
<nProt>421130000004747</nProt>
</infEvento>
</retEvento>
</retEnvEvento>