Checkbox en un TJvDBGrid

[mjjj]

Hola amigos, buscando en los foros encontre este que hace referencia al problema que estoi teniendo.

en un TJvDBgrid quiero agregar un Tcheckbox, utilizo el codigo que sugieren y funciona, pero lo que ocurre es que en todos los campos de tipo varchar me los cambia por un checkbox.

Yo solo le digo que modifique el campo "OK"

Código Delphi [-]
function TForm5.JvDBGrid1CheckIfBooleanField(Grid: TJvDBGrid; Field: TField;
  var StringForTrue, StringForFalse: string): Boolean;
begin
if grid.Row = 1 then Field := Grid.DataSource.DataSet.FieldByName('OK');
end;

Alguna idea para solucionar esto..

Muchas gracias amigos.

Saludos