Kolorowania komórki DBGrid + użycie niestandardowego stylu

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TXColumn; State: TGridDrawState);
begin
  if (Column.Index = 1) then
  begin
    if <warunek = true> then
      begin
        DBGrid1.Canvas.Brush.Color := clRed;
        if gdSelected in State then 
          DBGrid1.Canvas.Brush.Color := clRed; 
      end;

  XDBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;