Fórum Dbedit com checkbox. #401237

Prezados amigos bom dia,
Venho mais uma vez solicitar ajuda.
Vi uma função aqui no fórum, onde eu consingo 'simular' um checkbox no dbgrid, consegui implementar com sucesso.
Agora acontece que quando eu clico em outra opção, a opção anterior simplesmente apaga, fica como se estivesse desmarcada.
Já tentei de todos os recursos e nada.
Alguem poderia dar um help ?
Segue informações.
Componentes de acesso à dados : IBX - IbDataSet.
Delphi 7 / Firebird.

-- Evento DBGrid1CellClick
DsetRelMot.Edit;
if DsetRelMotSel.AsString = 'X' then
DsetRelMotSel.AsString := ' '
else
DsetRelMotSel.AsString := 'X';

-- Evento DBGrid1DrawColumnCell :
if Column.FieldName = 'Sel' then begin
DBGrid1.Canvas.FillRect(Rect);
Check := 0;
if DsetRelMotSel.AsString = 'X' then
Check := DFCS_CHECKED
else Check := 0;
R := Rect;
InflateRect(R, -2, -2); {Diminue o tamanho do CheckBox}
DrawFrameControl(DBGrid1.Canvas.Handle, R, DFC_BUTTON, DFCS_BUTTONCHECK or Check);
end;
  Se alguem tiver algo ae que ja funciona agradeço.
Aguardo retorno.
Obrigado por enquanto.