TeeChart und Delphi 13 Problem

[ich2]

Hallo zusammen...

wir haben auf Delphi 13 upgegradet und haben Problem mit der Teechart Komponente.
Wir benutzen die Komponente zur Anzeige von Datensätzen. Dabei werden die Series zur Laufzeit erstellt (siehe unten).

Für die Anzeige verwenden wir auch die Checkbox-Darstellung für die Legende.

Bis Delphi 12.2. hat alles funktioniert.
Ab Version 13 gibt es eine interessante Fehlermeldung (siehe Screenshot).
Der Fehler tritt nur auf wenn die checkbox Funktion in der Legende aktiviert ist.

Wir haben die Beispiele mal angehängt.

Jetzt die Frage:
ist der Ansatz zur Erzeugung grundsätzlich falsch oder hat sich hier ein Fehler in die TeeChart Komponenten eingeschlichen?

vielen Dank

PV

Code:

...
var
  iSeries: Array of TFastLineSeries;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  counter, i: Integer;
begin
  i := length ( iseries );
  setlength ( iseries, i+1 );
  iSeries[i] := TFastLineSeries.Create ( Form1 );
  iSeries[i].Name := 'test' + formatfloat ( '000', random ( 1000 ) );
  iSeries[i].Title := 'b' + formatfloat ( '000', random ( 1000 ) );
  iSeries[i].ParentChart := Form1.Chart1;
  iSeries[i].FastPen := true;

  iSeries[i].DrawAllPoints := true;
  iSeries[i].DrawAllPointsStyle := TDrawAllPointsStyle.daMinMax;
  iSeries[i].DrawStyle := TFastLineDrawStyle.flAll;
  iSeries[i].XValues.Order := TChartListOrder.loNone;
  iSeries[i].YValues.Order := TChartListOrder.loNone;


  for counter := 0 to 1000 do
    iSeries[i].AddXY ( counter, random );
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  for var i := High ( iSeries ) downto 0 do
    iSeries [ i ].Free;
  iSeries := nil;
end;