Как включить выбранную строку в TStringGrid?

Question

Я не вижу выбранную строку

Я работал с кодом, который взял с этого форума, но IN выбрал строку FRING STRINGGRID, которая не меняет цвет выбранной вами строки.

procedure TForm8.StringGrid2DrawColumnCell(Sender: TObject;
  const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF;
  const Row: Integer; const Value: TValue; const State: TGridDrawStates);
var
  aRowColor: TBrush;
  aNewRectF: TRectF;

begin
 aRowColor := TBrush.Create(TBrushKind.Solid, TAlphaColors.Alpha);
  stringgrid2.DefaultDrawing := False;
  if (StringGrid2.Cells[7, Row] = '0') then
    aRowColor.Color :=TAlphaColors.Rosybrown
  else
    aRowColor.Color := TAlphaColors.Greenyellow;

  aNewRectF := Bounds;
  aNewRectF.Inflate(3,3);
  Canvas.FillRect(aNewRectF, 0, 0, AllCorners, 1, aRowColor);

  Column.DefaultDrawCell(Canvas, Bounds, Row, Value, State);

  aRowColor.free;

end;