[el_barto]

Gracias lepe, eso mismo fue lo que hice, use como dice el dicho "la logica de campesino sano" y me salio lo siguiente:

para la primera parte:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect

Código Delphi [-]
; 
  DataCol: Integer; Column: TColumn; State: TGridDrawState); 
var 
  Check: Integer; 
  R: TRect; 
begin 
  if Column.FieldName = 'NombreCampo' then 
  begin 
    DBGrid1.Canvas.FillRect(Rect); 
    Check := 0; 
    if Table1.FindField('NombreCampo').AsInteger = 1 then   Check := DFCS_CHECKED; 
    R:=Rect; 
    InflateRect(R,-2,-2); //Disminuye el tamaño del CheckBox 
    DrawFrameControl(DBGrid1.Canvas.Handle,R,DFC_BUTTON, DFCS_BUTTONCHECK or Check); 
  end; 
end;

y para la segunda parte:

Código Delphi [-]
 
procedure TForm1.DBGrid1CellClick(Column: TColumn); 
begin 
  if Column.FieldName = 'NombreCampo' then 
  begin 
    Table1.Edit; 
    Table1.FindField('NombreCampo').AsInteger:=0 //Bueno en realidad aqui si no se si va 1 o 0
Table1.FindField('NombreCampo').AsInteger; 
  end; 
end;

esto fue lo que hice
corrigeme si me equivoco