загрузить файл на ftp в определенную папку

[combays]

Добрый день ! надо загрузить файл на ftp в определенную папку . Подкиньте пример плиз-)))


вот мой код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdFTP1.Host := 'ftp.3web.me'    ;
  IdFtp1.Username := 'webme_'      ;
  IdFtp1.Port := 21 ;
  IdFtp1.Password := ''   ;
  IdFTP1.Connect; // соединяемся с  FTP сервером

IdFTP1.Put('file.txt', 'file.txt', False)   ;
IdFTP1.Disconnect; // отсоединяемся от FTP сервера
end;

вот путь к папке:
/html_public/

[flatgad]

IdFTP1.Put('file.txt','html_public/file.txt', False) ;
вроде так