DbGrid & CheckBox (select)

procedure TformColorGrid.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
Var Style   : Integer;  
Begin
    IF { рисуется колонка, в которую мы хотим поместить TCheckBox }
    Then IF { значение поля TRUE }
        Then Style := DFCS_CHECKED
        Else Style := DFCS_BUTTONCHECK;
    End;

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