有关idftp使用的问题？(100分)

我写了如下代码：
var
i:integer;
item,item1:Tlistitem;
ls:Tstrings;
begin
idftp1.Host :='131.43.128.4';
idftp1.Username:='admin';
idftp1.Password :='12714001';
idftp1.Connect;
// idftp1.ChangeDir('银行接收');
try
ls:=tstringlist.Create;
IdFTP1.TransferType := ftASCII;
ed_rfilename.Text:=idftp1.RetrieveCurrentDir;;
idftp1.List(ls);
i:=idftp1.DirectoryListing.Count;
label1.Caption:=inttostr(i);

finally
ls.Free;
end;
end;
这是从内部FTP上取目录和文件数据，但是怎么执行，i的值为0，请问该如何处理？

服务器是serv_u,通过idftp.list,显示的结果是
-r-xr-xr-x 1 owner group 140288 May 7 1999 COMDLG32.OCX
-r-xr-xr-x 1 owner group 109410 Oct 24 2002 df.rm
-r-xr-xr-x 1 owner group 3901444 Oct 30 2002 dm.mpg
要想显示为
05-07-99 01:00AM 140288 COMDLG32.OCX
10-24-02 05:49PM 109410 df.rm
10-30-02 02:38AM 3901444 dm.mpg
该如何设置

顶

http://www.delphibbs.com/keylife/images/u196832/FTP_Update20060701.rar

你的程序我看了一下，没有任何问题，我试着将FTP地址换成我知道的都可以用。
不知你用的INDY是哪个版本的？DELPHI自带的还是第三方的INDY控件，建议用后者，功能与稳定性都好于前者。
我是用的INDY 9
关于文件尺寸和日期时间提取可以参考如下：
file_name:=trim(my_ftp_form1.idFTP1.DirectoryListing.filename);
file_datetime_info:=my_ftp_form1.idFTP1.DirectoryListing.ModifiedDate;
file_size:=my_ftp_form1.idFTP1.DirectoryListing.Size;

我用的是delphi2005自带的indy

那就用INDY控件替换掉DELPHI自己带的吧。