Delphi，正确克隆TChart

Question

我试图克隆TDBChart。 Chart2必须与Chart1相同。 Chart1有几个BarSeries，BottomAxis为DateTime，自动LeftAxis是自动的。

我使用以下代码执行此操作：

var
  i: Integer;
  TmpSeries: TChartSeries;
begin
  Chart2.Assign(Chart1);
  for i := 0 to Chart1.SeriesCount - 1 do
  begin
    TmpSeries := CloneChartSeries(Chart1.Series[i]);
    Chart2.Add(TmpSeries);
  end;
end;

它有效，结果Chart2看起来几乎与初始图表相同 - Chart1。但是我对轴标签（左轴和下轴）都有一个奇怪的问题。如果我调整初始图表的大小，我可以看到LeftAxis上的标签数量增加，但如果我调整结果图表的大小，我就不会看到这种效果。

初始图表会对OnGetAxisLabel事件做出反应，但结果图表不会，即使我写了：

Chart2.OnGetAxisLabel := Chart2GetAxisLabel;

事件没有被解雇！

可能是什么原因？

我使用Delphi7，Windows7，TeeChart8

谢谢。