[Alegun]

Сообщение от Kailon

Ну так и запускай в цикле загрузку проходясь по всем строкам Memo...

Код:

var
i: integer;
dir: string;
begin

...

 idFTP.Connect;
 dir:= 'c:\';

 for i := 0 to Memo1.Lines.Count-1 do
 IdFTP1.Put(dir + Memo1.Lines[i], Memo1.Lines[i], true);

idFTP1.Disconnect;
end;