ACBrCTe.EventoCTe.Evento.Clear;

 with ACBrCTe.EventoCTe.Evento.Add do
  begin
   infevento.chCTe      := Chave;
   infEvento.CNPJ       := sCNPJ;
   infEvento.dhEvento   := now;
   infEvento.tpEvento   := teCCe;
   infEvento.nSeqEvento := nSequencia;

   infEvento.detEvento.xCondUso := '';

   ACBrCTe.EventoCTe.Evento.Items[0].InfEvento.detEvento.infCorrecao.Clear;

   with ACBrCTe.EventoCTe.Evento.Items[0].InfEvento.detEvento.infCorrecao.Add do
    begin
     grupoAlterado   := sGrupo;
     campoAlterado   := sCampo;
     valorAlterado   := sValor;
     nroItemAlterado := iNumItem;
    end;
  end;

 ACBrCTe.EnviarEventoCTe(iNumLote);