用delphi 编写的编辑框文字拖动的例子，实现文本的拖动，另一个文本框接受文字-used to prepare the text editing box Drag example, the text of the drive to achieve, Another text box to accept language