error de CheckBox en DBGrid

[juanlaplata]

Evento DrawColumnCell del DBGrid

Código Delphi [-]
if Column.Field = 'Mover' then
  begin
    Grilla.Canvas.FillRect(Rect);

    ImageList1.Draw(Grilla.Canvas,
                    (Rect.Right - Rect.Left) div 2,
                    Rect.Top+1,
                    0);

    if Base.MovimientosMover.AsBoolean then
      ImageList1.Draw(Grilla.Canvas,Rect.Left+10,Rect.Top+1,2);
  end;

Evento CellClick del DBGrid

Código Delphi [-]
if (Column.FieldName = 'Mover') then
  begin
  Base.Movimientos.Edit;
  Base.MovimientosMover.AsBoolean:= not(Base.MovimientosMover.AsBoolean);
  Base.Movimientos.Post;
  end;

Las imagenes q dibujo ...