200分求动态生成Chart的原代码(100分)

200分求动态生成Chart的原代码

动态，如何动态？
是图形吗？
with adodatasetdo

begin

first;
while not eofdo
begin
series1.addpie(fields[0].asfloat,fields[1].asstring,rgb(random(255),random(255),random(255));
next;
end;
这样可以吗？

如何实现动态建立SERIES,同时改变形状。如折线，饼形
TAreaSeries
TBarSeries
TCircledSeries
TCustomBarSeries
TCustomSeries
TFastLineSeries
THorizBarSeries
TLineSeries
TPieSeries
TPointSeries
TSeriesPointer
总共有11个SERIES可供选择。
创建一个FORM，放DBCHART组件，TABLE组件，两个按钮。TABLE组件连接表，当然你也可以用QUERY等。
看以下例子：
procedure TForm1.Button1Click(Sender: TObject);// 曲线
var myseries:TLineSeries;
begin
dbchart2.SeriesList.Clear;
myseries:= TLineSeries.Create(self);
myseries.ParentChart:=dbchart2;
myseries.DataSource:=table1;
myseries.XValues.ValueSource:='yf';
myseries.YValues.ValueSource:='gz';
end;

procedure TForm1.Button2Click(Sender: TObject);// 柱状
var myseries:TBarSeries;
begin
dbchart2.SeriesList.Clear;
myseries:= TBarSeries.Create(self);
myseries.ParentChart:=dbchart2;
myseries.DataSource:=table1;
myseries.XValues.ValueSource:='yf';
myseries.YValues.ValueSource:='gz';
end;
其他的，看了这个，原理是一样的。
如果不用挂数据库，那，省略掉数据连接就可以了，可以手工指定横轴和纵轴的每个点的值。
这个在DELPHI6下，调试没有问题。

好像有demo吧

你说的是动态是指什么？动态创建？