Objekt Typ feststellen und gleichen Typ neu erstellen?

[chaosben]

So gehts bei mir:

Delphi-Quellcode:

var
  ser2 : TChartSeries;
begin
  ser2 := TChartSeriesClass(Chart1.SeriesList[0].ClassType).Create(Chart1);
  Chart1.AddSeries(ser2);
end;