说明：  delphi拖曳功能的实现，该功能简单好用，可以很好的帮助理解delphi拖曳功能的实现
(The realization of the function of Delphi drag, the function is simple to use, can be very good to help understand the realization of the function of Delphi drag)