obj := CreateObject("FTP");
  obj.host := "ftp.tinysoft.com.cn";
  obj.port := 20;
  obj.username := username;
  obj.password := password;
  obj.connect();//连接服务器
  obj.login();//登录服务器
  return obj.Abort();
  //终止连接成功，返回0