obj := CreateObject("FTP");
  obj.host := "ftp.tinysoft.com.cn";
  obj.port := 20;
  obj.username := username;
  obj.password := password;
  return obj.connect();
  //连接成功，返回0