Não estou conseguindo cancelar nem informando o cOrgao = 91. Abaixo segue trecho onde transmito a informação de cancelamento:
ACBrNFe1.EventoNFe.Evento.Clear;
ACBrNFe1.EventoNFe.idLote := 1 ;
with ACBrNFe1.EventoNFe.Evento.Add do
begin
chave := Edit1.Text;
Delete(chave, Pos('-', chave), length(chave)-Pos('-', chave)+1);
infEvento.chNFe := Chave;
infEvento.CNPJ := CNPJ;
infEvento.dhEvento := now;
infEvento.tpEvento := teCancelamento;
infEvento.detEvento.xJust := Justificativa;
infEvento.detEvento.nProt := '432130000000001';
InfEvento.cOrgao := 91;
end;
ACBrNFe1.EnviarEventoNFe(1);