[RxRichEdit] символ под курсором

[unbanned]

как можно получить символ под курсором?
пробую вот так

procedure TForm1.redt1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  Pt: TPoint;
  iCharIndex, iLineIndex: integer;
begin
  with TRxRichEdit(Sender) do
  begin
    Pt := Point(X, Y);
    iCharIndex := Perform(Messages.EM_CHARFROMPOS, 0, Integer(@Pt));
    if iCharIndex < 0 then
      Exit;
    iLineIndex := Perform(EM_EXLINEFROMCHAR, 0, iCharIndex);
  end;
end;

ну и потом

Copy(redt1.Lines.Text, iCharIndex, 1);

вообщем срабатывает криво...

[Stilet]

Copy(redt1.Lines.Text, redt1.SelStart, 1);

Подходит?

[Человек_Борща]

А почему вы вообще Copy используете?
<?>:=redt1.Lines.Text[redt1.SelStart];

[unbanned]

Не совсем. Я имею ввиду... Вот, навел мышку на текст который в richedit'e. И мне нужен индекс того символа который находится под стрелочкой мышки. А по идее никакого текста в этот момент выделено не будет