delphi xe7 tclientdataset, dbgrid显示某列的值小于30显示红色，结果是反的？

xe7的clientdatset(cdsrope)+dbgrid,
其中cds里面有一个两个计算字段（duedate, balance) 的都是fkinternalcalc类型。
在cds的oncalc事件中计算这两个字段值，想在dbgrid中根据balance的值，如果小于30就显示红色加粗，否则就正常显示，
看了很久，结果和预想的相反，麻烦高手看看代码哪里有问题，或者设置哪里？

cds的计算事件过程如下：

procedure TfmQuRope.cdsQueryCalcFields(DataSet: TDataSet);

begin

    //self.cdsQuery.

 //   if dataset.State=dsinternalcalc then

    begin

    dataset.FieldByName('duedate').AsDateTime:=dataset.FieldByName('begindate').AsDateTime +

      self.cdsQuery.FieldByName('life').AsInteger;

    dataset.FieldByName('balance').AsInteger := trunc(dataset.FieldByName('begindate').AsDateTime

      - today)+dataset.FieldByName('life').AsInteger;

    end;

end;

dbgrid的drawcolumncell事件如下：

procedure TfmQuRope.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

  DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

    if self.cdsQuery.RecNo mod 2 = 0 then

        (Sender as TDBGrid).Canvas.Brush.Color := clskyblue

    else

        (Sender as TDBGrid).Canvas.Brush.Color := clwindow;

    if gdselected in State then

        (Sender as TDBGrid).Canvas.Brush.Color := clolive;

  //  if (sametext(Column.FieldName, 'balance') = true) and

    //(self.DBGrid1.Columns[DataCol].Items[1]<30) then

    if (datacol=24) and

      (Column.Field.AsInteger < fmmain.AdvanceDay) then

      //就是这句判断当前列的值是否小于30

    begin

        //Column.Font.Style := Column.Font.Style + [fsbold];

        Column.Font.Color := clred;

    end

    else

    begin

        Column.Font.Color := cldefault;

        //Column.Font.Style := Column.Font.Style - [fsbold];

    end;

    (Sender as TDBGrid).DefaultDrawColumnCell(Rect, DataCol, Column, State);

另外还发现由于dbgrid的title里面字段balance的width默认是94的话，这个字段所有都是默认加粗的，运行时，鼠标拉动一下宽度，粗体就不显示了。如果设计时宽度调整为95以后，这列的值就不会加粗了。