Как в tmemo узнать, когда курсор над выделением?

07.03.2015
9
0
#1
Использую

px:Word;
......................
px:=LoWord(Perform(EM_CHARFROMPOS,0,MakeLParam(X,Y)));
if (px>=SelStart)and(px<=(SelStart+Sellength))and(Sellength>0) then

но работает до 65700 знаков.