Parece que realmente há um Bug...
Por favor testes, substituindo com o trecho abaixo
procedure TACBrNFe.EnviarEmailEvento(const sPara, sAssunto: String;
sMensagem: TStrings; sCC: TStrings; Anexos: TStrings;
sReplyTo: TStrings);
var
NomeArq: String;
AnexosEmail: TStrings;
StreamNFe : TMemoryStream;
begin
AnexosEmail := TStringList.Create;
StreamNFe := TMemoryStream.Create;
try
AnexosEmail.Clear;
if Anexos <> nil then
AnexosEmail.Text := Anexos.Text;
GravarStream(StreamNFe);
ImprimirEventoPDF;
AnexosEmail.Add(DANFE.ArquivoPDF);
NomeArq := OnlyNumber(EventoNFe.Evento[0].InfEvento.Id);
EnviarEmail(sPara, sAssunto, sMensagem, sCC, AnexosEmail, StreamNFe,
NomeArq + '-procEventoNFe.xml', sReplyTo);
finally
AnexosEmail.Free;
StreamNFe.Free;
end;
end;