CRDBGrid1 и canvas

[pr12yad]

Уважаемые коллеги подскажите пожалуйста.
Есть код

procedure TMain.CRDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if strtoint(ACCESS)=1 then
begin
  TeSpeedButton2.Enabled:=true;
end;
with tcustomdbgridcracker(sender) do
  if datalink.activerecord = row - 1 then
  begin
    CRDBGrid1.Canvas.brush.color := clred;
    idTabel:=datalink.Fields[0].AsInteger;
  end
else
  CRDBGrid1.Canvas.brush.color := clwhite;
end;

Если использовать стандартный DBGrid1, все работает как надо: конва выбранной ячейки обводится красным, а для CRDBGrid1 почемуто не работает хотя данное свойство доступно.