dbgrideh如何按条件设置某一个单元格的颜色

dbgrideh怎么按条件设置某一个单元格的颜色
procedure TFrm_KCBJ.dbg_kcbjDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
  if AQ_KCBJ.FieldByName('kcsl').AsString = '0' then
  begin
    dbg_kcbj.Canvas.Font.Color := clred;
  end;
  dbg_kcbj.DefaultDrawColumnCell(Rect, DataCol,Column, State);
end;

这样只是将kcsl =0 的哪一行都设置成了clred,我只想设置'kcsl'这一列的颜色。

------解决方案--------------------
楼主自学成才，可喜可贺。 dbgrideh如何按条件设置某一个单元格的颜色