[ecfisa]

Hola.

Usa la propiedad vectorial ValueColor de TPieSeries, ejemplo:

Código Delphi [-]
...
var
  i: Integer;
begin
  Randomize;
  for i := 0 to Series1.Count-1 do
    Series1.ValueColor[i] := TColor(Random(65535));
end;

Saludos