DBchart中如何改变bar的颜色(200)

delphi里做直方图的显示，开始用dbchart做好了， DBChart1.Series[0].DataSource := ADOQuery1;
DBChart1.Series[0].XLabelsSource := '日期';
DBChart1.Series[0].YValues.ValueSource := '数据';
已经可以显示出bar，但是现在要根据数据内容来改变每个bar的颜色，如果数据值低于500，bar显示黄色，如果高于500，低于1000则显示红色，如果高于1000则显示绿色。 要怎么用程序来动态设置啊？最好有一个例子,谢谢!

if then
DBChart1.Series[0].SeriesColor:= clRed;
看下是不是这个，还有 ColorRange ValueColor BackColor都看看

需不需要再加一个Series[1]