Bom dia pessoal, no delphi7 eu utilizo assim para mostrar a nota.
NFe.NotasFiscais.Items[0].SaveToFile;
MemoResp.Lines.LoadFromFile(dm.sq1EST.Value+'\'+copy(NFe.NotasFiscais.Items[0].NFe.infNFe.ID, (length(NFe.NotasFiscais.Items[0].NFe.infNFe.ID)-44)+1, 44)+'-NFe.xml');
LoadXML(MemoResp, WBResposta);
// NFe.NotasFiscais.Items[0].SaveToFile;
ACBrNFeDANFERave1.MostrarPreview := true;
NFe.NotasFiscais.Imprimir;
e para Criar e Enviar assim.
NFe.Enviar(0);
MemoResp.Lines.Text := UTF8Encode(NFe.WebServices.Retorno.RetWS);
LoadXML(MemoResp, WBResposta);
NFe.NotasFiscais.Clear;
o que mudou agora..