delphi DxDBgrid根据单元格数据使单元格改变颜色

procedure TForm1.dxDBGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
ASelected, AFocused, ANewItemRow: Boolean; var AText: String;
var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
var ADone: Boolean);
begin
if (AColumn=dxDBGrid1Column2) and (ADOQuery1.FieldByName('XBC').Value='0') then
begin
AColor:=clRed; //背景
AFont.Color:=clBlack; //字体
end;

if (AColumn=dxDBGrid1Column2) and (ADOQuery1.FieldByName('XBC').Value>'12') then
begin
AColor:=clGreen;
AFont.Color:=clBlue;
end;

if (AColumn=dxDBGrid1Column2) and (ADOQuery1.FieldByName('XBC').Value>'20') then
begin
AColor:=clBackground;
AFont.Color:=clCaptionText;
end;

end;