DBChart 饼形图怎么动态赋值

DBChart 饼形图如何动态赋值？
像条形图，可以这样动态赋值
 DBChart1.Series[0].DataSource:=ADOStoredProc1;
 DBChart1.Series[0].XLabelsSource:='score';
 DBChart1.Series[0].YValues.ValueSource:='num';
那DBChart2里的饼形图，我该怎么做呢？


[解决办法]

Delphi(Pascal) code

var  i: integer;   FPieSeries: TPieSeries;begin  for i:=0 to DBChart1.SeriesCount-1 do DBChart1.Series[i].Destroy;  FPieSeries := TPieSeries.Create(DBChart1);  FPieSeries.ParentChart := DBChart1;  FPieSeries.ColorEachPoint := true;  FPieSeries.Title := '饼状图';  FPieSeries.XLabelsSource := 'cdate';  FPieSeries.Marks.Style:=TSeriesMarksStyle(0);  FPieSeries.DataSource := OraQuery4;  FPieSeries.YValues.ValueSource := 'cont_amm';  FPieSeries.Active := True;end;