Utilizando a Função que eu citei em cima ela baixou, mas deve ter alguma coisa errada porque ela baixou 4 arquivos xml, como mostra a imagem abaixo.
o codigo que estou utilizando é:
URL := 'https://www.nfe.fazenda.gov.br/portal/consultaRecaptcha.aspx?tipoConsulta=resumo&tipoConteudo=d09fwabTnLk=';
ACBrNFe1.Configuracoes.Arquivos.PathSchemas := ExtractFileDir(Application.ExeName) + PathDelim + 'Schemas';
ACBrNFe1.Configuracoes.WebServices.Visualizar := False;
ACBrNFe1.Configuracoes.Geral.Salvar := True;
ACBrNFe1.Configuracoes.Arquivos.PathSalvar := 'D:\Compartilhados\teste-baixar-xml\nfe\';
ACBrNFe1.Configuracoes.Arquivos.PathSchemas := 'D:\Users\Usuario\Documents\acbr\ACBr\Exemplos\ACBrDFe\Schemas\NFe';
ACBrNFe1.Configuracoes.Certificados.NumeroSerie := edtSerie.Text;
Str := edtChave.Text;
ACBrNFe1.DistribuicaoDFe(StrToInt(edtUf.Text), edtnSerie.Text, '0', edtSerie.Text, Str);
alguem poderia me falar se isso realmente esta errado e o que estaria errado?