Assim funcionou para mim, ainda não terminei a implementação
with ACBrNFe1.EventoNFe.Evento.New do
begin
InfEvento.cOrgao := 91;
infEvento.nSeqEvento := 1;
infEvento.chNFe :=
infEvento.CNPJ :=
infEvento.dhEvento :=
infEvento.tpEvento := teComprEntregaNFe;
infEvento.detEvento.dhEntrega :=
infEvento.detEvento.nDoc :=
infEvento.detEvento.xNome :=
infEvento.detEvento.hashComprovante :=
infEvento.detEvento.dhHashComprovante :=
infEvento.detEvento.verAplic := '1.00';
infEvento.detEvento.versao := '4.00';
infEvento.detEvento.cOrgaoAutor :=
end;