abaixo o codigo que uso
vAux := dm.IBGERACODIGOGEN_ID.asstring;
vnumlote := vAux;
ACBrNFe1.NotasFiscais.Clear;
Sincrono := True;
ACBRNFEDANFEFR1.fastfile := 'C:\Softart\NFCe\Report\DANFeNFCeDiebold.fr3';
ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe;
ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310;
GerarNFCe(vAux);
ACBrNFe1.Enviar(vNumLote,True,Sincrono);
MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS);
memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetornoWS);
LoadXML(MemoResp, WBResposta);
MemoDados.Lines.Add('');
MemoDados.Lines.Add('Envio NFe');
MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb));
MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Retorno.verAplic);
MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cStat));
MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cUF));
MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Retorno.xMotivo);
MemoDados.Lines.Add('cMsg: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cMsg));
MemoDados.Lines.Add('xMsg: '+ ACBrNFe1.WebServices.Retorno.xMsg);
MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Retorno.Recibo);
MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Retorno.Protocolo);
ACBrNFe1.NotasFiscais.Clear;
ACBrNFE1.NotasFiscais.imprimir;