Проверка на наличие файла
Код:
...
for i := 0 to Memo1.Lines.Count-1 do
if FileExists(dir + Memo1.Lines[i]) then
IdFTP1.Put(dir + Memo1.Lines[i], Memo1.Lines[i], true);
...
Обратный отсчёт строк мемо
Код:
...
for i := Memo1.Lines.Count-1 downto 0 do
...