解决Memo控件选择文本时屏幕滚动

一个小问题却困扰了我很长时间：
Delphi FMX下用memo控件编写的文本编辑器在选择文本时，屏幕上下滚动，导致选择操作很难进行。而手机输入法自带的编辑选择功能，在自己定制的编辑器中却不起作用（输入法接口函数找不到）。尤其在修改一些源程序代码时，复制、粘贴起来简直令人恼火。
经过不断摸索，现在终于算是解决了！方法如下：
在memo的mousemove事件中，当选择文本的长度大于0小于50时，禁止滚动；当选择文本长度大于50，允许滚动，这样屏幕上滑后可继续拖动选择文本。在mouseleave事件中，当选择区域未发生变化时，禁止滚动，这样便可进行第二次拖动（选择长文本时）。

procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Single);