Puse asi:
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\', true);
end;
Me marca que no encuentra el destino