Checkbox внутри Dbgrid

[Armageddets]

Нашел в интернете много информации по созданию чекбокса внутри булевой ячейки в Dbgrid. Сделал как в примерах и чек бокс появился. Но если мы кликаем первый раз, то на чекбоксе ставится/убирается галочка. А если второй раз подряд или третий, то пишется слово true/false до тех пор пока не будет кликнута другая ячейка. Мне нужно чтобы всегда было отображение чекбокса и не писалось словами (true/false). Можно ли это как нибудь организовать?

Вот сам проект:

http://rghost.ru/60549200

На главной форме нажимаем пройти ТО и в форме слева кликая на булевые ячейки можно их проверить.

P.S. Две формы одновременно запускаю для тестирования. Потом нужно будет сделать, чтобы при клике по булевый ячейкам на форме что справа в этой же ячейке писался текст.

[phomm]

procedure TForm4.DBGrid1ColEnter(Sender: TObject);
begin
  with TDBGrid(Sender) do
    if SelectedField.DataType = ftBoolean then 
      Options := Options - [dgEditing]
    else
      Options := Options + [dgEditing]
  Button1Click(Self);
end;

procedure TForm4.DBGrid1CellClick(Column: TColumn);
begin
  ADOTable1.Edit;
  ADOTable1.Fields[DBGrid1.SelectedIndex].Value:= not ADOTable1.Fields[DBGrid1.SelectedIndex].Value;
  ADOTable1.Post;
end;