procedure TForm1.FormCreate(Sender: TObject); var int_i:integer; Typell:tpieSeries; SeriesClass:TChartSeriesClass; NewSeries:array of TChartSeries; begin setlength(NewSeries,20); if Chart1.SeriesCount>0 then Chart1.Series[0].Destroy; Typell:=tpieSeries.Create(self); Chart1.AddSeries(Typell); Chart1.Series[0].ColorEachPoint:=true; for int_i:=0 to 19 do begin SeriesClass:=TbarSeries; NewSeries[int_i]:=SeriesClass.Create(Self); NewSeries[int_i].Title:='fff'; NewSeries[int_i].ParentChart:=Chart1; NewSeries[int_i].Clear; Chart1.Series[0].Add(10,'ddd',NewSeries[int_i].SeriesColor); end;