Отправка файлов на сервер

[Stilet]

В чем проблема?

Код в студию. Согласен с Сашей - что-то недосоздал.
И пожалуйста - ошибки приводить полностью текстом или скрином, а не кидать кость типа "Почему не работает?"

[mitiay]

procedure TForm1.Button4Click(Sender: TObject);
var
i: integer;
begin
idFTP1.Host:=
idFTP1.Port:=21;
idFTP1.UserName:='
idFTP1.Password:='
idFTP1.Connect;
IdFTP1.ChangeDir('/webspace/httpdocs/upload/');
if idFTP1.Connected = false then
begin
ShowMessage('?????? ??????????');
exit;
end;
try 
for i:=0 To Memo1.Lines.Count-1 Do
begin
try
IdFTP1.ChangeDir('/webspace/httpdocs/upload/');
idFTP1.MakeDir('picture'+IntToStr(i)); 
idFTP1.Put(Memo1.Lines.Strings[i],'picture' +IntToStr(I) + '/' + ExtractFileName(Memo1.Lines.Strings[i]),false);
except
on E: Exception do 
ShowMessage('?????? ???????? ?????:' + Memo1.Lines.Strings[i] + ' ????? ??????:' + E.Message);
end;
end;
except
on E: Exception do
ShowMessage('???! ???-?? ????? ?? ???. ???? ???? ????? ??????:' + #10#13 + E.Message);
end;
ShowMessage('????? ????????');
end;
end.

Скрин ошибки выкладывал ранее
http://screenshot.ru/77afafc5263cbef15f32ec883bde09b5

[Stilet]

На какой строке ошибка вылетает?
Если не в курсе стань на первую строку, нажми F5 - установится точка прерывания (бряк). Запусти. Прога брякнется. Жми F8 - пошаговка, пока не дойдешь до строки где упадет ошибка.

[mitiay]

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

На какой строке ошибка вылетает?
Если не в курсе стань на первую строку, нажми F5 - установится точка прерывания (бряк). Запусти. Прога брякнется. Жми F8 - пошаговка, пока не дойдешь до строки где упадет ошибка.

Разобрался!НО данный пример создает папку с именем картинки то есть я щас загрузил 40 картинок появилось 40 папок.Как сделать я первый раз загружаю грузится в папку 1 второй раз в папку 2

[Stilet]

Ну напиши

idFTP1.MakeDir('папку '+IntToStr(i));

Ппц я не понимаю зачем это все...

[mitiay]

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

Ну напиши

idFTP1.MakeDir('папку '+IntToStr(i));

Ппц я не понимаю зачем это все...

ОМГ )))Я так и делал!Все папка создается!Как перейти в созданую папку чтоб туда качались файлы????
Changedir('blalblalbla' + +IntToStr(i)) не работает

И тишина )ХЕЛПП!!!

[WhatO_o?!]

ну попробуй Changedir('путь' + 'blalblalbla' + +IntToStr(i))

Ты ведь вот тут IdFTP1.ChangeDir('/webspace/httpdocs/upload/'); создал папку?

[Stilet]

И тишина )ХЕЛПП!!!

idFTP1.Changedir('папку '+IntToStr(i));