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