Управление цветом в Tchart (pie)

L:=TStringList.Create;
T:=TStringList.Create;
L.Duplicates:=dupIgnore;
L.Sorted:=true;
for f:=FormZakaz.RzStringGrid2.FixedRows to FormZakaz.RzStringGrid2.RowCount-1 do
L.Add(FormZakaz.RzStringGrid2.Cells[3,f]);
for f:=0 to L.Count-1 do
begin
Summ:=0;
for j:=FormZakaz.RzStringGrid2.FixedRows to FormZakaz.RzStringGrid2.RowCount-1 do begin
if FormZakaz.RzStringGrid2.Cells[3,j]=L.Strings[f] then begin
If FormZakaz.RzStringGrid2.Cells[1,j]<>'' then Summ:=Summ+StrToInt(FormZakaz.RzStringGrid2.Cells[1,j])
end;
end;
T.Add(Format('%s=%d', [L.Strings[f], Summ]));
end;
L.Free;
FormZakazPrice.PieSeries2.Clear;
for f:=0 to T.Count-1 do
if StrToInt(T.ValueFromIndex[f])>0 then PieSeries2.Add(StrTofloat(T.ValueFromIndex[f]),'р, '+ T.Names[f], $00EBEBEB);
T.Free;

.........
randomize;
RGB(random(256),random(256),random(256))

var c:TColor;
..............
for f:=0 to T.Count-1 do
 begin
  if T.Names[f]='прибыль от заказа' then c:=clRed else c:= $00EBEBEB;
  if StrToInt(T.ValueFromIndex[f])>0 then PieSeries2.Add(StrTofloat(T.ValueFromIndex[f]),'р, '+ T.Names[f], c);
 end;
T.Free;