procedure AssignChart(aSource, aDest: TCustomChart);
var
lSeries: TChartSeries;
i: Integer;
begin
aDest.RemoveAllSeries;
aDest.Assign(aSource);
for i := 0 to aSource.SeriesCount - 1do
begin
lSeries := TChartSeriesClass(aSource.Series.ClassType).Create(aDest);
lSeries.Assign(aSource.Series);
aDest.AddSeries(lSeries);
end;
end;