Ein Problem mit Berechnung aus der Stringliste und for Schle

[Hallo_Thomas]

Ich möchte in TChart eine Reihe Darstellen(Hier Counter[145], dafür müssen vorher die Counter abgeleitet werden von einer Stringlist(meineListe).Und von diesem Counter soll nun der Counter[145] abgeleitet werden.

Also im 1.Teil die Counter 48..52 berechnet für jeder Position in der Stringliste, Im 2. Teil sollte der Counter[145], das Minimum der Counter[48,50,52] zu jedem Item in der Stringliste, das sollte dann in TChart ausgegeben werden.Aber Irgendwie Zeigt die zugeordnete Serie immer nur die Werte 0 bis 2 zu jedem Item dar!

Delphi-Quellcode:

Begin
  for y := 48 to 52 do
  Counter[y] := 0;
  for y := 48 to 52 do
  for x := Form1.meineListe.count - 1 downto 0 do
    begin
      i:=Form1.meineListe.count-x;
      if (StrToInt(Form1.meineListe.Strings[x]) in Form1.werte[y]) then
      begin
        Counter[y] := 0;
      end else
      begin
        Inc(Counter[y]);
      end;                    //////////Wenn ich dies in TChart ausgeben habe ,klappte es /1.Teil 
      begin                   ////////Hier meine Neuerung die nicht wirklich will/2.Teil
        Counter[145]:= Min(Counter[48],Min(Counter[50],Counter[52]));
        with Chart1.SeriesList[ 148 ] do
        AddXY( i,Counter[145] );
       end;
    end;

Esmüssten zuerst alle Counter[48..52] zu einem Item ausgerechnet werden und dann Counter[145]
und nun sollte der nächste item folgen für[48..52]....