Walter, eu tivesse esse problema. O que eu fiz foi diminuir 5 minutos na data de evento.
with ACBrNFe1.CartaCorrecao.CCe.Evento.Add do
begin
infEvento.chNFe := QryCartaCorrecaochave.AsString;
infEvento.cOrgao :=StrToInt(copy(QryCartaCorrecaochave.AsString,1,2));
infEvento.CNPJ := copy(QryCartaCorrecaochave.AsString,7,14);
infEvento.dhEvento := IncMinute(now,-5);
infEvento.tpEvento := 110110; // Codigo FIXO , conforme Nota Técnica 2011/003
infEvento.nSeqEvento := // Numero de sequencial referente ao numero de cartas emitidas ..
infEvento.versaoEvento := '1.00';
infEvento.detEvento.descEvento := 'Carta de Correção';
// Item
infEvento.detEvento.xCorrecao := Correcao;
infEvento.detEvento.xCondUso :='';
end;