Проверка аккаунтов FTP

[KREGI]

а как пароли к фтп ты вводишь? тоесть, он один ко всем фтп?

[KREGI]

скрин посмотрел, асю скинул в личные сообщения.

[}{oт@бь)ч]

idFTP1.Username:= copy(memo1.lines.strings[i], 1, pos(':', memo1.lines.strings[i])-1);
idFTP1.Password:= copy(memo1.lines.strings[i], pos(':', memo1.lines.strings[i])+1, length(memo1.lines.strings[i]));
idFTP1.Password:= copy(memo1.lines.strings[i], 1, pos('@', memo1.lines.strings[i])-1);
idFTP1.Host:= copy(memo1.lines.strings[i], pos('@', memo1.lines.strings[i])+1, length(memo1.lines.strings[i]));
IdFTP1.From.Text := copy(memo1.lines.strings[i], 1, pos(':', memo1.lines.strings[i])-1);
IdFTP1.From.Text := copy(memo1.lines.strings[i], 1, pos(':', memo1.lines.strings[i])-1);
    Connect;

Что я с циклами не так зделал?
В Memo1 я ввожу ftp://логин:пароль@хост
Тоесть логин пароль и хост в одной строке но выдает почемуто ошибку

[AquaKlaster]

Какую ошибку?

[}{oт@бь)ч]

Просто покозовает красную строку но я чтото там наверное не так зделал!
Посмотрите плиз!

[KREGI]

а внизу какая ошибка?

[}{oт@бь)ч]

Вообшем вот скрин


Мне нужно чтобы в строчке был лоин пароль хост
тоесть цикл
вот что у меня в цикле неправильно?

idFTP1.Username:= copy(memo1.lines.strings[i], 1, pos(':', memo1.lines.strings[i])-1);
idFTP1.Password:= copy(memo1.lines.strings[i], pos(':', memo1.lines.strings[i])+1, length(memo1.lines.strings[i]));
idFTP1.Password:= copy(memo1.lines.strings[i], 1, pos('@', memo1.lines.strings[i])-1);
idFTP1.Host:= copy(memo1.lines.strings[i], pos('@', memo1.lines.strings[i])+1, length(memo1.lines.strings[i]));
IdFTP1.From.Text := copy(memo1.lines.strings[i], 1, pos(':', memo1.lines.strings[i])-1);
IdFTP1.From.Text := copy(memo1.lines.strings[i], 1, pos(':', memo1.lines.strings[i])-1);
    Connect;

[AquaKlaster]

зделай скрин компилятора когда вылазит ошибка(появляется красная строка), полный скрин!!!

[Пепел Феникса]

наверно на

    Connect;

ругается...обьект то указывать надо, форма не имеет такого метода.

IdFTP1.Connect;