Pt := Point(X, Y);    iCharIndex := Perform(Messages.EM_CHARFROMPOS, 0, Integer(@Pt));
    
#pas