TDBGRID Delphi XE8

procedure TfrmClientes.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if odd(ClientDataSet1.RecNo) then
    DBGrid1.Canvas.Brush.Color:= clSkyBlue
  else
    DBGrid1.Canvas.Brush.Color:= clWhite;

  TDbGrid(Sender).Canvas.font.Color:= clBlack;
    if gdSelected in State then
      with (Sender as TDBGrid).Canvas do
        begin
          Brush.Color := clSilver;
          FillRect(Rect);
          Font.Style := [fsbold]
        end;

  TDbGrid(Sender).DefaultDrawDataCell(Rect, TDbGrid(Sender).columns[datacol].field, State);
end;