typeTForm1 = class(TForm)DBGrid1: TDBGrid;procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState);procedure DBGrid1CellClick(Column: TColumn);procedure DBGrid1ColEnter(Sender: TObject);procedure DBGrid1ColExit(Sender: TObject);procedure SaveBoolean;private{ Private declarations }FOriginalOptions : TDBGridOptions;public{ Public