Delphi - Modificar colores de un Tchart cargado desde BD

Hola a todos un saludo, tengo un problema y no estoy pudiendo resolverlo.
Realizé una aplicación la cual presenta unos reportes en cuadros estadísticos, utilizo QuickReports para esto y el TeeChart para las gráficas, mis serie es por columnas. Los datos que voy a mostrar en estos reportes y en el TeeChart los saco de una Base de Datos.

Necesito que cada columna, dependiendo del valor que saque de la BD, se pinte de un color diferente (Por Ejemplo. Si el valor es entre 0 y 3 que se pinte rojo, si el valor es entre 3,1 y 6 que se pinte verde).

Porfavor, espero me puedan ayudar. Muchas Gracias anticipadamente

Prueba esto

for i:=0 to no_barras-1 do begin
if Series1.YValue[i] <10 then
Series1.ValueColor[i]:=100000
else if Series1.YValue[i] <20 then
Series1.ValueColor[i]:=200000
else if Series1.YValue[i] <30 then
Series1.ValueColor[i]:=300000
end;
//así hasta el número de colores que quieras
//tambien en lugar de poner un número, puedes poner el color clRed, clBlue, etc...

for i:=0 to no_barras-1 do begin
if Series1.YValue[i] <10 then
Series1.ValueColor[i]:=clRed
else if Series1.YValue[i] <20 then
Series1.ValueColor[i]:=clBlue
else if Series1.YValue[i] <30 then
Series1.ValueColor[i]:=clBlack
end;

Me funciono excelente, pero OJO colocando ese codigo en el evento BeforeDrawSeries, en otro lugar jamás me funcionaba, ahora tengo una duda mas, como hago para cambiar los colores de la Leyenda ??? no se cambian automaticamente, ya que todos se quedan de color rojo.

Yo penzé que con hacer un repaint funcionaría pero no es necesario, con el siguiente codigo, lo puse en el evento OnClick de la Form, y me cambia el color de las barras sin problema incluso el color en la leyenda, no se por que a ti no te funcione, los valores de muestra que yo ingreso los pongo en el OnActivate de la form

for i:=0 to Series1.XValues.Count-1 do begin
if Series1.YValue[i] <10 then
Series1.ValueColor[i]:=100000
else if Series1.YValue[i] <20 then
Series1.ValueColor[i]:=200000
else if Series1.YValue[i] <30 then
Series1.ValueColor[i]:=300000
else if Series1.YValue[i] <40 then
Series1.ValueColor[i]:=400000
else if Series1.YValue[i] <50 then
Series1.ValueColor[i]:=500000
else if Series1.YValue[i] <60 then
Series1.ValueColor[i]:=600000
else if Series1.YValue[i] <70 then
Series1.ValueColor[i]:=700000
else if Series1.YValue[i] <80 then
Series1.ValueColor[i]:=800000
else if Series1.YValue[i] <90 then
Series1.ValueColor[i]:=900000
end;

Esque utilizo el TeeChart para unos reportes !!! y no hay como hacer click en el reporte

Una pregunta ................................No sabes como se cambian los colores y el texto en la leyenda del mismo TeeChart ??? Porfavor estoy desesperado llevo toda la tarde intentando averiguar y no me sale. Porfavor

Ha, eso cambia todo, el teeChart para QReport yo no lo uso, he tenido problemas, pero lo solucioné con algo de trampa, explico:

Uso un teeChart normal, luego cargo las series y sus datos, luego ya cuando está como deseo, hago una imagen del chart con la siguiente linea

Chart1.SaveToBitmapFile('c:imagen_chart.bmp');

Y luego esa imagen la cargo al reporte con un TQRImage, y se soluciona todo, el texto en la leyenda no se como modificarlo

Existe el componente TQRChart para el quick report...