chart数据复制问题？ (50分)

有两个chart控件，其中一个已经有了series,现在我要把chart1中的series加到chart2中，
我用下面的代码
var
series:TchartSeries;
i:integer;
begin
for i:=0 to Chart1.seriesCount-1 do
begin
series:=Chart1.series[0];
chart2.addseries(series);
end;
end;
可以把chart1的加到chart2中，可是chart1中的图形却不见了，
怎样把chart1的图形加到chart2中，而chart1中的图形不变？
问题解决了，还有一个简单问题，怎样设置chart的y轴标题和x轴标题？

测试一下chart2中各个series的xvalues、yvalues是否同chart1各个series的
xvalues、yvalues.怀疑是数据值没有拷贝过去，

是一样的阿，已经考过去了，但是就是chart1本身的数据没有了

不能解释是什么原因造成的，只有采取比较复杂的方法：
如果chart1的series的类型都是一种比较方便，若是都不一样就比较麻烦了，我给出
chart1中series类型一样的栗子
var
series:TchartSeries;
i:integer;
begin
series:=tbarseries.create(self);
series.ParentChart:=chart2;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
series:tchartseries;
i,j:integer;
begin
for j:=0 to chart1.Seriescount-1 do
begin
series:=tbarseries.create(self);
series.ParentChart:=chart2;
for i:=0 to chart1.series[j].count-1 do
chart2.Series[j].AddXY(chart1.Series[j].xvalue,chart1.Series[0].YValue,'',clteecolor );
end;
end;
你试试上面的代码，就可以把chart1中的series拷贝到chart2中

接受答案了.