Fórum Tranferir arquivos de um servidor FTP #321061

procedure TFrmMain.Button1Click(Sender: TObject);
var
  I: Integer;
  Files:TStrings;
  Arquivo, CaminhoArquivo: String;
begin
IdFTP1.Connect;
IdFTP1.List(nil,´*.xml´,False);
Files := IdFTP1.ListResult;
CaminhoArquivo := ExtractFilePath(Application.ExeName)+´Importacao\´;
for I := 0 to Files.Count - 1 do
  begin
    ListBox1.Items.Add(Files[i]);
    Arquivo := ListBox1.Items.Strings[i];
    IdFTP1.Get(Arquivo,CaminhoArquivo+Arquivo);
  end;
IdFTP1.Disconnect;
end;