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;