RichEdit отслеживаем символ стоящий после курсора (Delphi 7)

[Прик]

Кстати, munthrekosh, это чья рука:

... в StatusBar.Panels[4]...

Если у вас нет пяти панелей в статус баре, то я здесь при чем? Если все панели на месте, то не знаю почему у вас ошибка выскакивает.
У меня этой ошибки нет. А в панели показывается код символа.

Надо бы делать и проверку что курсор находится на последнем символе:

procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
  if RichEdit1.SelStart+1 < Length(RichEdit1.Text) then
    StatusBar1.Panels[4].Text := IntToStr(Ord(RichEdit1.Text[RichEdit1.SelStart+1]))
  else
    StatusBar1.Panels[4].Text := '';
end;

[munthrekosh]

Спасибо, прик.

У меня ша полночь и думать вообще не хочется... ТАк что я сидел и ждал когда кто-нибудь скинет готовый код