Delphi 连接Ftp服务器，取文件目录

procedure TbsFileBackUpForm.conectServer(Sender: TObject); 
var 
  tr : Tstrings; 
begin  //连接 
  tr := TStringlist.Create; 
  IdFTP1.Host := '10.000.00.00'; //FTP服务器IP地址or域名也可以
  IdFTP1.Port :=21;
  IdFTP1.Username := 'Download'; //FTP服务器用户名 
  IdFTP1.Password := '0000000'; //FTP服务器密码

  if    not IdFTP1.Connected     then     IdFTP1.Connect();  //连接到ftp
  cxtxtdt1.Text := IdFTP1.RetrieveCurrentDir;//得到初始目录 
//  IdFTP1.ChangeDir('download'); //进入到client子目录 
  //IdFTP1.ChangeDir('..'); //回到上一级目录
  IdFTP1.List(tr); //得到client目录下所有文件列表
  cxMemo1.Lines.Assign(tr);
  tr.Free; 
end;

参考：

在delphi中用indy实现FTP上传 下载的例子

DELPHI IDftp 详解