Delphi FMX. TGrid events

На fmx форме лежит стандартный TGrid. В нем есть столбец типа TCheckColumn. Грид заполняется по событиям OnGetValue, OnSetValue. Для реагирования на вкл./откл. чекбокса щелчками мыши в строках грида к нему подключен обработчик OnSelectCell. Щелкая мышью по одной и той же ячейке в столбце грида событие OnSelectCell возникает только в момент первого нажатия мыши. Вопрос: как реализовать генерацию события OnSelectCell даже при условии, что указатель мыши не передвигался с момента прошлого нажатия кнопок мыши ? Сейчас это событие генерируется только при смене нажатой ячейки на другую.

Живая иллюстрация всего описанного доступна на картинке с простым примером грида из 2-колонок лежащего на форме fmx. Как видно на видео несколько раз нажимается ЛКМ и возникающие события протоколируются в окно CodeSite(на видео оно справа):

Приведу тестовый пример грида на форме с подключенными обработчиками его заполнения(OnGetValue, OnSetValue) и реакции на щелчок мыши(OnCellClick). Может, кто то может показать, что нужно добавить/изменить, чтобы уверенно ловить событие нажатия ЛКМ по любой строке/ячейке в гриде при условии, что эти щелчки выполняются без смещения курсора мыши по схеме: подвел курсор(больше его не смещаем) и нажимаем мышь несколько раз. Мой опыт показывает, что событие OnCellClick работает только 1 раз в таком варианте. Дальше обязательно требуется смена фокуса с активной ячейки на другую.

unit uMain;

interface

uses
  System.SysUtils,
  System.Types,
  System.UITypes,
  System.Classes,
  System.Variants,
  System.Rtti,
  //
  FMX.Types,
  FMX.Controls,
  FMX.Forms,
  FMX.Graphics,
  FMX.Dialogs,
  FMX.Grid.Style,
  FMX.Grid,
  FMX.Controls.Presentation,
  FMX.ScrollBox,
  FMX.StdCtrls, 
  FMX.ImgList;
  //

type

  //строка грида
  TRow = record
    ID:integer;
    Checked:boolean;
  end;

  //Test form
  TForm1 = class(TForm)
    grd: TGrid;
    CheckColumn2: TCheckColumn;
    Label2: TLabel;
    IntegerColumn1: TIntegerColumn;
    procedure FormCreate(Sender: TObject);
    procedure grdGetValue(Sender: TObject; const ACol, ARow: Integer; var Value: TValue);
    procedure grdSetValue(Sender: TObject; const ACol, ARow: Integer; const Value: TValue);
    procedure grdCellClick(const Column: TColumn; const Row: Integer);
  private
    //контейнер значений ячеек грида
    FRowsA: array of TRow;
    FSelectedRow: integer;
    //
    procedure PopulateGrid;//заполняет Grid
    //
  end;

  //столбцы сетки
  TMyCols = (mcID, mcChecked);

var
  Form1: TForm1;

implementation

{$R *.fmx}

//FormCreate
procedure TForm1.FormCreate(Sender: TObject);
begin
  PopulateGrid;
end;
    
{$REGION 'TGrid'}

//PopulateGrid
procedure TForm1.PopulateGrid;
const
  rows = 10;//число строк
begin
  Grd.RowCount := rows ;
  SetLength(FRowsA, rows);
  //по строкам
  for var r := 0 to rows-1 do
  begin
    //
    FRowsA[r].ID := r;           //id
    FRowsA[r].Checked := false ; //check
  end;
end;

//grdCellClick
procedure TForm1.grdCellClick(const Column: TColumn; const Row: Integer);
var
  selRow, cnt: integer;
begin
  var ci := Column.Index ;
  FSelectedRow := Row;
  cnt := grd.RowCount ;
  //колонка checked
  if ci = Ord(TMyCols.mcChecked) then
  begin
    //
    grd.RowCount := 0;
    grd.RowCount := cnt;
    grd.SelectRow(FSelectedRow);
    //
    FRowsA[Row].Checked := not FRowsA[Row].Checked;
    //
    Log.d( Format('CellClick raised: row=%d; col=%d', [Row, ci]) );
  end;
end;

//grdSetValue
procedure TForm1.grdSetValue(Sender: TObject; const ACol, ARow: Integer; const Value: TValue);
var
  oldVal, newVal: boolean;
begin
  //значения в ячейках сохраняет во внешний массив FRowsA
  //
  var g := Sender as TGrid;
  if not Assigned(g) then Exit;
  if (ARow < 0) or (ARow >= g.RowCount) then Exit;
  //
  //номер колонки
  case ACol of
    //колонка id
    Ord(TMyCols.mcID):
      begin
        FRowsA[ARow].Checked := Value.AsBoolean;//id
      end;
    //колонка checked
    Ord(TMyCols.mcChecked):
      begin
        oldVal := FRowsA[ARow].Checked;

        Value.TryAsType<boolean>(newVal);
        FRowsA[ARow].Checked := newVal;//checked
        Log.d( Format('OnSetValue raised: row=%d; col=%d; oldValue=%s; newValue=%s', [ARow, ACol, oldVal.ToString(), newVal.ToString()]) );
      end;
    //
  end;
  //
end;

//grdGetValue
procedure TForm1.grdGetValue(Sender: TObject; const ACol, ARow: Integer; var Value: TValue);
var
  val: boolean;
begin
  //значения из внешнего массива FRowsA сохраняет в ячейки сетки
  //
  var g := Sender as TGrid;
  if not Assigned(g) then Exit;
  if (ARow < 0) or (ARow >= g.RowCount) then Exit;

  //номер колонки
  case ACol of
    //колонка id
    Ord(TMyCols.mcID)  :
    begin
      Value := FRowsA[ARow].ID;
    end;
    //колонка checked
    Ord(TMyCols.mcChecked):
    begin
      Value := FRowsA[ARow].Checked;
    end;
  end;
  Log.d( Format('OnGetValue raised: row=%d; col=%d', [ARow, ACol]) );
  //
end;

{$ENDREGION}

//
end.

Чтобы учесть комментарий ув. teran опишу желаемое поведение грида:

1. По одинарному щелчку ЛКМ по строке требуется ее выделить и вызвать событие щелчка.
2. Если щелчок происходит повторно и без смещения курсора мыши с ячейки строки не убирать выделение строки и вызывать событие щелчка.
3. При щелчках по другим строкам хочется наблюдать выполнение условий 1) и 2)

Добавлю, что оказалось, проблема возникает с выделением строки в случае, если для запуска обновления представления грида использовать Grid.RowCount := 0; Grid.RowCount := NewCount;