Você pode salvar o xml após a validação do mesmo assim:
ACBrNFe1.WebServices.CartaCorrecao.CCeRetorno.retEvento.Items.RetInfEvento.XML;
Pegue o path completo do arquivo, crie uma StringList e adicione esse path dentro da StringList;
E passe essa stringlist como parametro no método EnviarEmail do compotente como abaixo:
Anexos : TStrings;
Anexos := TStringList.Create;
Anexos.LoadFromFile(CaminhoXmlCartaCorrecaoEletronica);
ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(
Configuracao.emailHost,
Configuracao.emailPort,
Configuracao.emailUser,
Configuracao.emailPass,
Configuracao.emailUser,
trim(CC[0]),
Configuracao.emailAssunto,
Configuracao.emailAssuntoLista,
Configuracao.emailSSL,
True,
CC,
Anexos,
False,
Configuracao.emailAguardar,
'');