delphi indy9 IDFTP下载不成功

[小安安]

procedure TForm1.Button1Click(Sender: TObject);
begin
with IdFTP do
begin
try
TransferType := ftBinary;
Host := '127.0.0.1';
Username := 'zymftp';
Port := 21;
Password := 'zym';
Connect();
ChangeDir('STD_System');
//List(Memo1.Lines);
//Put('C:\CBX.V515.7z', 'a.d.7z', True);
//List(Memo1.Lines);
Get('CBX.V515.7z', 'C:\CBX.V515.7z',True);
Disconnect;
except
ShowMessage('完了');
end;
end;
end;

我的代码就这么几句 很简单， 可是为什么用PUT的时候没有问题 但是用list或是用Get的时候就是不行 程序就死了 IDFTP的onwork好像死循环一样 不停。。

[geekjack]

idftp我不知道 前几天有有idhttp 是indy9的 有挺多问题的 换成了indy10 问题才解决的 - -

[sxper]

http://bbs.csdn.net/topics/390343113 indy.list(ls)必须要有