Codigo completo:
Código Delphi
[-]Var Lista: TStringList;
i : Integer;
begin
Lista := TStringList.create;
FTP.List(Lista,'A*.txt',false);
for I := 0 to Lista.Count - 1 do
begin
FTP.Get(Lista.Strings[i], 'K:\carpetadescarga\' + Lista.Strings[i], true);
end;
Me arroja la siguiente pantalla: