TChart AddXY() zu langsam bei 100.000 Werten

[Hallo_Thomas]

Hallo,

ich wollte hier einige Werte Graphisch darstellen, aber AddXY (oder TLineseries?)
hat ganz schön an 100.000 Werten ganz schön zu kauen.Gibt es da andere Komponenten die Sache schneller darzustellen bzw. die Sache zu optimieren?

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var Counter                 : array[1..11] of Integer;
    y,x,z,i                 : Integer;
    MySeries                : TLineseries;
begin
  Chart1.UndoZoom;
  Chart1.FreeAllSeries;
  for y := 1 to 11 do
    Counter[y] := 0;
  MySeries:= TLineseries.Create( Self );
  MySeries.ParentChart:= Chart1;
  for x := length(Form1.MyListe) - 1 downto 0 do
  begin
    z:=Form1.MyListe[x];
    i:=length(Form1.MyListe)-x;
    for y := 1 to 11 do
    begin
      if z in Form1.werte[y] then
      begin
        Counter[y] := 0;
      end else
      begin
          Inc(Counter[y]);
      end;
      Begin
        with Chart1.SeriesList[ 0 ] do
          AddXY( i,Array_Max(Counter,0,10));
      end;
    end;
  end;
end;