obj := CreateObject("FTP");
  obj.host := "ftp.tinysoft.com.cn";
  obj.port := 20;
  obj.username := username;
  obj.password := password;
  //连接FTP服务器
  obj.connect();
  //登录
  obj.Login();
  return obj.RetrieveCurrentDir();
  //字符串："/"