[Denisonin]

В общем, задача такова:
• Загрузить большое(неизвестное заранее(1-2000шт.)) кол-во файлов, заданных в memo1.

Файлы:
• Расширение ".png"
• В одной директории
• Имеют вид - "sl-pd-000.png", "sl-pd-001.png", ... , "sl-pd-1100.png"

Дополнительно:
• В memo1 будет информация вида:
sl-pd-000.png
sl-pd-001.png
...
sl-pd-2000.png

• Если файлы в директории кончаются на (например) sl-pd-491.png, то загрузка должна остановиться.


Имеется код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
idFTP1.Host:='ftp_server.ru';   //FTP-сервер
idFTP1.Port:=21;                  //порт ФТП сервера
idFTP1.Username:='Логин';
idFTP1.Password:='Пароль';
idFTP.Connect;
IdFTP1.Put('c:\file.png','file.png' ,true);

idFTP1.Disconnect;
end;

Ничего не нашел, разобраться не смог, прошу помощи.