有空帮看一下(20分)

这是关于tchart的一段程序...
with TBarSeries.Create(Self) do
begin
ParentChart:= DBC_Chart;
Marks.Style:= smsValue;
ColorEachPoint:=true;
QChart.First ;
while not QChart.Eof do
begin
Add(QChart['rs'],QChart['bm'],SeriesColor);
QChart.Next ;
end;
refreshSeries;
// series1.RefreshSeries;
end
为什么画出的bar都是一种颜色，怎么在程序里使它以不同的颜色显示呢。。。

好几天了，还没有人能帮忙吗？