最后一个大函数 StartMouseDrag 。世纪大盗。
// 拆分大函数的时候，Delphi的子函数特性真是太管用了。