delphi TIdFtp 控件的问题？
File := 'G:\A.txt';
idftp1.Put(File,(ExtractFileName(File)));

put时 报错！
错误信息 ：Project Project1.exe raised exception class EIdProtocolReplyError with message 'A.txt': Forbidden
FileName ', Process stopped .Use Step or Run to continue。

有哪位高人与见过这种情况吗？

[解决办法]
比如利用IdFTP1.put()把文件a.word上传到网站www.abcd.com/wwwroot目录下
确定网站指定的目录是提供FTP站点。
idftp1登陆成功后

Dir_List: TStringList;
IdFTP1.List(Dir_List,'',true); 获到目录下面的文件夹

IdFTP1.ChangeDir('wwwroot');
IdFTP1.Put('d:\a.word', 'a.word', false);
[解决办法]
建议先把tidftp的使用整好：

新建工程，按钮上传

然后再与线程配合。