[[nlsgarcia]]

ronald_tro,

Empezado por ronald_tro

...estoy haciendo una aplicación que permite descargar archivos con FTP...

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   FTP: TIdFTP;
   Lista: TStringList;
   i : Integer;

begin

   FTP := TIdFTP.Create(nil);
   FTP.Username := txtUsername.Text;
   FTP.Password := txtPassword.Text;
   FTP.Host := txtHost.Text;

   try
      FTP.Connect;
   except
      raise Exception.Create( 'No se ha podido conectar con el servidor ' + FTP.Host );
   end;

   FTP.ChangeDir('/');

   Lista := TStringList.create;
   FTP.List(Lista,'Text*.txt',false);

   try

      for i := 0 to Lista.Count - 1 do
      begin
         if FileExists('C:\FTPServerBackup\' + Lista.Strings[i]) then
            DeleteFile('C:\FTPServerBackup\' + Lista.Strings[i]);
         FTP.Get(Lista.Strings[i], 'C:\FTPServerBackup\' + Lista.Strings[i], true);
      end;

   finally

      FTP.Disconnect;
      FTP.Free;
      Lista.Free;

   end;

end;

El código anterior en Delphi 7 y Indy 9 bajo Windows 7 Professional x32, permite hacer un FTP Get a todos los archivos 'Text*.txt' del directorio home del servidor FTP y descargarlos en el directorio 'C:\FTPServerBackup\' con el mismo nombre de archivo.

Espero sea útil

Nelson.