Delphi - GRAFICO COLUMNAS DE COLORES ..!!!

Saludos

Mi duda debe ser sencilla de resolver, espero me puedan ayudar...

Tengo un grafico en el que muestro a los PROVEEDORES y su CANTIDAD de piezas que venden , hasta aqui todo va bien , en el grafico muestro todos los datos correctos , lo unico que no se como hacer es poner de DIFERENTE COLOR cada una de las columnas , cada columan representa un proveedor.

hago notar que solo manejo una SERIE en el grafico .

gracias y espero respuesta.

Si usas TChart:

//Inserta eligiendo color
Chart1.Series[0].AddY(23, 'Proveedor', ClBlue);
//Cambia el color de una columna en concreto
Chart1.Series[0].ValueColor[0]:=clGreen;

EL PROBLEMA ES QUE NO INSERTO LAS SERIES MANUALMENTE , DIGAMOS SOBRE EL CODIGO , ESTAS SE GENERAN EN UN WHILE...

Umm, en principio no veo el problema (a no ser que no sepas con cuantas columnas se pueden insertar). Se me ocurren dos soluciones:

1) Creando un array de colores (si conoces el número máximo de columnas que agregarás), por ejemplo:

procedure TForm1.Button1Click(Sender: TObject);
var
Colores: Array [0..5] of TColor;
i: integer;
begin
Colores[0]:=clRed;
Colores[1]:=clBlue;
Colores[2]:=clGreen;
Colores[3]:=clLime;
Colores[4]:=clBlack;
Colores[5]:=clGray;
i:=0;
while i<=5 do begin
Chart1.Series[0].AddY(23, 'Proveedor', Colores[i]);
inc (i);
end;
end;

{En la práctica, el array de colores es mejor declararlo fuera del procedimienro).

2) Una solución algo más sucia pero efectiva si desconocemos el numero de columnas máximas. Sabemos que los colores son en realidad valores numéricos. Pues dicho y hecho:

procedure TForm1.Button2Click(Sender: TObject);
var
ColorInicial, i, Maximo: Integer;
begin
ColorInicial:=0;
i:=0;
Maximo:=25;
while i<=Maximo do begin
Chart1.Series[0].AddY(23, 'Valor', ColorInicial+(255*255*255*i div Maximo));
inc (i);
end;
end;

Suerte.

GRACIAS ME SIRVIO DE MUCHO..!! =)