Criar um CheckBox no componente TDbgrid

Observações

Código
var
  Check: Integer;
  R: TRect;    
begin  
  if Column.FieldName = 'NOME DA COLUNA' then //Nome da coluna que vai receber o CheckBox
  begin
    dbgrid1.Canvas.FillRect(Rect); 

    Check := 0;

    if ( Condicao ) then //Condição utilizada para determinar se o CheckBox deve estar marcado
      Check := DFCS_CHECKED
    else
      Check := 0;

    R:=Rect;
    InflateRect(R,-2,-2); //Diminui o tamanho do CheckBox
    DrawFrameControl(dbgrid1.Canvas.Handle,R,DFC_BUTTON, DFCS_BUTTONCHECK or Check);
  end;
end;