Двойной клик мышкой на слове

Konst

Если слово все на английском тогда нормально.
Если в слове есть руссий символ то выделяется слово предыдущее.
А не то на котором стоит курсор.

Res_А2 := (-0.09* Огранич_1 + Огранич_2* Q_к_бр55+ Огранич_135)*n_к55;


Тоже самое если с помощью клавиш CTRL+ влево или в другую сторону перемещается совсем не так как нужно.

Выделение мышкой фрагмента, где есть русские символы. Попробуйте.
Курсор в одном месте - выделение в другом.

Особенно это проявляется когда на нижнем скрол баре есть маленькое смещение на половину символа

Konst

unit U_Memo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frxSynMemo, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
      FCodeWindow: TfrxSyntaxMemo;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
    FCodeWindow := TfrxSyntaxMemo.Create(Self);
  with FCodeWindow do
  begin
    Parent := Self;
    Align := alClient;
    BorderStyle := bsSingle;
    Lines.Add('function test( Var Q_к_бр55):Integer;');
    Lines.Add('begin');
    Lines.Add('Res_А2 := (-0.09* Огранич_1 + Огранич_2* Q_к_бр55+ Огранич_135)*n_к55;');
    Lines.Add('end');
    Syntax := 'PascalScript';
    Color := clWindow;

    CommentAttr.Charset := DEFAULT_CHARSET;
    CommentAttr.Color := clGreen;
    CommentAttr.Height := -15;
    CommentAttr.Name := 'Courier New';
    CommentAttr.Style := [fsItalic] ;
    Font.Charset := DEFAULT_CHARSET;
    Font.Color := clWindowText;
    Font.Height := -15;
    Font.Name := 'Courier New';
    Font.Style := [];
    GutterWidth := 30;
    KeywordAttr.Charset := DEFAULT_CHARSET;
    KeywordAttr.Color := clNavy;
    KeywordAttr.Height := -15;
    KeywordAttr.Name := 'Courier New';
    KeywordAttr.Style := [fsBold];
    Modified := False;
    NumberAttr.Charset := DEFAULT_CHARSET;
    NumberAttr.Color := clGreen;
    NumberAttr.Height := -15;
    NumberAttr.Name := 'Courier New';
    NumberAttr.Style := [];
    StringAttr.Charset := DEFAULT_CHARSET;
    StringAttr.Color := clNavy;
    StringAttr.Height := -15;
    StringAttr.Name := 'Courier New';
    StringAttr.Style := [];
    TextAttr.Charset := DEFAULT_CHARSET;
    TextAttr.Color := clWindowText;
    TextAttr.Height := -13;
    TextAttr.Name := 'Courier New';
    TextAttr.Style := [];
  end;
end;
end.

Но еще забавней со следующими настройками

Font.Name := 'Tahoma';
Font.Size := 14;
Font.Charset := 204; // 'RUSSIAN_CHARSET';
StringAttr.Name := 'Tahoma';
StringAttr.Size := 14;