Как перекрасить цвет выбранной ячейки в string grid?

У меня есть компонент ColorBox и я хочу, чтобы при его изменении изменялся цвет выбранной ячейки в StringGrid. CellColor - массив содержащий цвета ячеек. Вот, что у меня получилось

procedure TMainForm.clCellsChange(Sender: TObject);
begin

  CellColor[Table.Col-1, Table.Row-1] := clCells.Color;
  Table.Invalidate;
end;


procedure TMainForm.TableDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin

  if gdSelected in State then
  begin

    Table.Canvas.Brush.Color := CellColor[ACol-1][ARow-1];
    Table.Canvas.FillRect(Rect);
  end;
end;