[ronald_tro]

Si, he cambiado el código que tenía por este:

Código Delphi [-]
var
   FTP: TIdFTP;
   Lista: TStringList;
   i : Integer;
begin
 FTP := TIdFTP.Create(nil);
   FTP.Username := '***';
   FTP.Password := '***';
   FTP.Host := '***';
   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,'A*.txt',false);
   try

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

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

   end;

En mi ftp tengo archivos que inician con la letra A y son extension .txt , al momento de ejecutar obtengo esta ventana



El archivo que me descarga está vacío y es el siguiente


Debo de tener instalado Servidor FTP FileZilla Server?