В 2-ух столбцах DBGrid Checkbox

[Zofk]

Помогите сделать в одном DBGrid два столбца(у двух полей) Checkbox

procedure DrawGridCheckBox(Canvas: TCanvas; Rect: TRect; Checked: boolean);
var
  DrawFlags: Integer;
begin
  Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top + 1, ' ');
  DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONPUSH or DFCS_ADJUSTRECT);
  DrawFlags := DFCS_BUTTONCHECK or DFCS_ADJUSTRECT;
  if Checked then
    DrawFlags := DrawFlags or DFCS_CHECKED;
  DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DrawFlags);
end;

procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
 with TDBGrid(Sender) do
    if SelectedField.FieldName = 'Sem_Polozh'
    then
      Options := Options - [dgEditing]
    else
      Options := Options + [dgEditing]

end;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 if Column.FieldName = 'Sem_Polozh'
 then
      if Column.Field.AsString = 'True' then
      DrawGridCheckBox(DBGrid1.Canvas, Rect, true)
    else
      DrawGridCheckBox(DBGrid1.Canvas, Rect, false)

end;