Chart1.SeriesList erzeugung zur Laufzeit

[Hallo_Thomas]

Ich habe einige Zeilen hinzugefügt zu meinem Programm, damit jetzt die Linien(Reihen zur Laufzeit erzeugt werden. Das habe ich geändert, da ich Probleme mit dem unteren Befehl, da ich ich nach dem löschen, keine neuen Reihen(also Feste vorher in Tchart definierte) erzeugen konnte.
Jetzt ist das Programm mit den hinzzugefügten befehltzeilen wesentlich langsamer, wie kann ich das ändern

Delphi-Quellcode:

procedure TForm2.Button4Click(Sender: TObject);
var y,i,x,z,v : Integer;
[b]Var MySeries: TLineseries;////Dies wurde Hinzugefügt[/b]
  Counter            : array[0..1500] of Integer;
begin
  If ComboBox1.ItemIndex = 0 Then     
  Begin
  for y := 0 to 36 do
  Counter[y] := 0;
  for x := Form1.meineListe.count - 1 downto 0 do
  begin
    z:=StrToInt(Form1.meineListe.Strings[x]);
    i:=Form1.meineListe.count-x;
    for y := 0 to 36 do
      begin
        if (z in Form1.werte[y]) then
        begin
          Counter[y] := 0;
        end
        else
        begin
          Inc(Counter[y]);
        end;
        Begin
          [b]MySeries:= TLineseries.Create( Self );;////Dies wurde Hinzugefügt
          MySeries.ParentChart:= Chart1;;////Dies wurde Hinzugefügt[/b]
          with Chart1.SeriesList[ y ] do
          AddXY( i,Counter[y] );
        end;
      end;
    end;

Dies benutze ich zum löschen von TChart

Delphi-Quellcode:

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
  Chart1.FreeAllSeries;
end;