Deployed on Android 10, whenever I press the Backspace I get a "RANGE CHECK" error
procedure TTMSFNCRichEditorBase.Backspace;
var
el: TREElement;
nel,pel: TREElement;
bul: TBulletElement;
bt: TBulletType;
isinerror: boolean;
Error: boolean;
s: string;
tl: TPoint;
su: integer;
begin
if FDoUndo then
begin
PushContext;
FDoUndo := false;
end;
if HasSelection then
DeleteSelection
else
begin
FDefaultChanged := false;
if (Caret.Element is TTextElement) and (Caret.CharIndex > 0) then
begin
isinerror := (Caret.Element as TTextElement).Error;
s := (Caret.Element as TTextElement).Text;
if Caret.CharIndex > 1 then
begin
**su := Ord(s[Caret.CharIndex]);** <<<<<Here
if su and $D800 = $D800 then
Caret.CharIndex := Caret.CharIndex - 1;