delphi indy9 IDFTP下载不成功,该如何解决

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好像死循环一样 不停。。
------解决方案--------------------
idftp我不知道  前几天有有idhttp  是indy9的  有挺多问题的  换成了indy10  问题才解决的  - -
------解决方案--------------------
http://bbs.****.net/topics/390343113

indy.list(ls)必须要有