TStringGrid in Firemonkey Bug

[CHackbart]

Vielleicht ist es jemandem schon aufgefallen, aber in

Code:

function TColumn.EditingDone(const InplaceEdit: TFmxObject; const Value: TValue; const Accept: Boolean): Boolean;
var
  LCoord: TGridModel.TCoord;
begin
  Result := False;
  if Accept then
  begin
    Result := PostEditorValue(InplaceEdit, Value);
    if Result then
      if Assigned(Model.OnEditingDone) then
        Model.OnEditingDone(PresentedControl, LCoord.Col, LCoord.Row);
  end
  else if FEditorState = TEditorState.Modified then
    EditingCancelled;

  FEditorState := TEditorState.None;
end;

fehlt ein LCoord.Col := Model.IndexOfColumn(Self);
LCoord.Row := Model.Row;

Also QM sieht echt anders aus

Ich habe einen Eintrag im QC erstellt:
https://quality.embarcadero.com/browse/RSP-15863

Christian