我使用了TChart而不是TDbChart，并编写了以下代码从TadoQuery获取值：

with AdoQuery1 do
  begin
    i := 1;
    while not Eof do
      begin          
        chart1.Series[0].Add(fieldbyname('count').AsInteger,fieldbyname('statename').AsString,colors[i]);
        i := (i+1) mod 10;
        Next;
      end;
   end;

when：colors是一个我们想要的颜色数组。

你可以通过以下方式更改特定幻灯片的颜色：

chart1.Series[1].ValueColor[0] := clRed;
  chart1.Series[1].ValueColor[1] := clYellow;
  chart1.Series[1].ValueColor[2] := clGreen;