关于一个简单的IDFTP上载的有关问题，等答案

关于一个简单的IDFTP下载的问题，等答案！
你好。想实现一个简单的FTP下载功能，怎么读取服务器上的目录及文件　实现下载？
给写几个代码

------解决方案--------------------

procedure TfrmMain.Button2Click(Sender: TObject);
begin
IdFTP1.Host :='127.0.0.1';
IdFTP1.Port :=21;
//IdFTP1.Username :='abc';
//IdFTP1.Password:='123';
IdFTP1.Connect(True,9000);
//IdFTP1.ReadTimeout:=9000;
IdFTP1.List(FileList); //读取当前目录到TStringList
IdFTP1.Get('要下载的文件.rar','保存到文件.rar');
IdFTP1.Put('要上传的文件.rar');
end;

------解决方案--------------------
1楼不是都说了吗
下载是：
IdFTP1.Get('要下载的文件.rar','保存到文件.rar');

IdFTP1.List(FileList)
其中FileList是个TStringList类型变量
当执行完这句代码后，就会把服务器当前目录下的文件列表放入FileList中
你可以在窗体中加个Memo1控件，然后
Memo1.Lines.AddStrings(FileList);
就能在memo1中显示服务器上的文件列表