with (Sender as TDBGrid) do
    with Canvas do
      begin
        if DataSource.DataSet.RecNo mod 2 = 0 then
          begin
            Brush.Color:=clGradientInactiveCaption;
            FillRect(Rect);
            TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
          end;
        if gdSelected in State then
          begin
            Brush.Color:= clHighLight;
      Font.Color := clHighLightText;
      end;
        DefaultDrawColumnCell(Rect,DataCol,Column,State);
      end;

uses ..., UxTheme;
...
procedure TformColorGrid.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Style: Integer;
  theme: HTHEME;
begin
  if { рисуется колонка, в которую мы хотим поместить TCheckBox } then
  begin
    if UseThemes then
      theme := OpenThemeData(Handle, 'BUTTON')
    else
      theme := 0;
    if theme = 0 then // классический CheckBox
    begin
      if { значение поля TRUE } then
        Style := DFCS_CHECKED
      else
        Style := DFCS_BUTTONCHECK;
      DrawFrameControl(TDBGrid(Sender).Canvas.Handle, Rect, DFC_BUTTON, Style);
    end
    else begin // CheckBox по теме
      if { значение поля TRUE } then
        Style := CBS_CHECKEDNORMAL
      else
        Style := CBS_UNCHECKEDNORMAL;
      DrawThemeBackground(theme, TDBGrid(Sender).Canvas.Handle, BP_CHECKBOX, Style, Rect, nil);
      CloseThemeData(theme);
    end;
  end;
end;

 Shabal

procedure TformColorGrid.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
Var Style   : Integer;  
Begin
IF СompareText(Column.FieldName , 'Check') = 0 Then
Then IF ListSelect.IndexOf(Pointer(TDBGrid(Sender).DataSource.
DataSet.FieldByName('Species No').AsInteger)) >= 0
Then Style := DFCS_CHECKED
Else Style := DFCS_BUTTONCHECK;
End;

DrawFrameControl(TDBGrid(Sender).Canvas.Handle, Rect, DFC_BUTTON, Style);
End;

if CompareText(Column.FieldName , 'Check') = 0 Then
  begin
  if ListSelect.IndexOf(Pointer(TDBGrid(Sender).DataSource.
DataSet.FieldByName('OPID').AsInteger)) >= 0
Then Style := DFCS_CHECKED
Else Style := DFCS_BUTTONCHECK;
DrawFrameControl(TDBGrid(Sender).Canvas.Handle, Rect, DFC_BUTTON, Style);
  end;