problem mit schleife

[herrentor]

ich hab ein problem mit einer for schleife. und zwar werden bei jedem durchlauf immer alle ergebnise geändert, sprich er liest zeile eins (i=1) aus und erkennt z.b. rechteck, gibt das ergebnis richtig aus, dann liest er zeile zwei (i=2) und erkennt z.b dreieck, gibt das ergebnis dafür richtig aus, ändert jedoch auch das ergebnis der ersten zeile so, als würde dort auch dreieck ausgewählt worden sein.

vielen dank im voraus.

download der *.exe datei

Code:

procedure TForm1.berechnenClick(Sender: TObject);     {Berechnung}
 var i:integer;                                       {deklarieren der Variablen}
     mass1,mass2,Lx,Ly,Sx,Sy,s,b,h:real;
     Xs,Ys,A,AGes,XsGes,YsGes,Vx,Vy:single;

begin

 XsGes:=0; YsGes:=0; AGes:=0;                         {initialisieren}
 flaecheges.caption:='0';
 xsge.caption:='0';
 ysge.caption:='0';

For i:=1 to 6 Do                                      {Anfang der Schleife}
 begin

     mass1:=StrToFloat(Tab.Cells[3,i]);                {umwandeln der Eingabewerte}
     mass2:=StrToFloat(Tab.Cells[4,i]);
     Lx:=StrToFloat(Tab.Cells[5,i]);
     Ly:=StrToFloat(Tab.Cells[6,i]);
     Sx:=StrToFloat(sxge.text);
     Sy:=StrToFloat(syge.Text);

      Xs:=0; Ys:=0; A:=0;                             {initialisieren}

   case ComboBox1.ItemIndex of                        {Fallunterscheidung}

    0: begin                                          {Rechteck}
        A:=mass1*mass2;                               {Fläche}
        Xs:=Lx+mass1/2;                               {Schwerpunkt auf der X-Achse}
        Ys:=Ly+mass2/2;                               {Schwerpunkt auf der Y-Achse}
       end;

    1: begin                                          {Dreieck}
        A:=(mass1*mass2)/2;                           {Fläche}
        Xs:=Lx+mass1/3;                               {Schwerpunkt auf der X-Achse}
        Ys:=Ly+mass2/3;                               {Schwerpunkt auf der Y-Achse}
       end;

    2: begin                                          {Kreissektor}
       A:=pi*sqr(mass1)*mass2/360;                    {Fläche}
       s:=2*mass1*sin(mass2/2*pi/180);                {Sehne}
       b:=pi*mass1*mass2/180;                         {Bogenlänge}
       Xs:=Lx;                                        {Schwerpunkt auf der X-Achse}
       Ys:=Ly+((2/3)*(mass1*s)/b);                    {Schwerpunkt auf der Y-Achse}
      end;

    3: begin                                          {Kreisabschnitt}
        b:=pi*mass1*mass2/180;                        {Bogenlänge}
        s:=2*mass1*sin(mass2/2*pi/180);               {Sehne}
        h:=2*mass1*sqr(sin(mass2/4*pi/180));          {Bogenhöhe}
        A:=(mass1*(b-s)+s*h)/2;                       {Fläche}
        Xs:=Lx;                                       {Schwerpunkt auf der X-Achse}
        Ys:=Ly+(1/12)*((s*s*s)/A);                    {Schwerpunkt auf der Y-Achse}
       end;

    4: begin                                          {Kreis}
        A:=pi*sqr(2*mass1)/4;                         {Fläche}
        Xs:=Lx+0;                                     {Schwerpunkt auf der X-Achse}
        Ys:=Ly+0;                                     {Schwerpunkt auf der Y-Achse}
       end;

   end;

 if (ComboBox2.ItemIndex = 1) then                    {bei negativen Vorzeichen wird die Fläche aktualisiert}
  begin
   A:=A*(-1);
  end;

   Tab2.Cells[0,i]:=FloatToStrF(Xs,ffFixed,7,2);      {umwandeln der Ergebniswerte in i-te Zeile und ausgeben}
   Tab2.Cells[1,i]:=FloatToStrF(Ys,ffFixed,7,2);
   Tab2.Cells[2,i]:=FloatToStrF(A,ffFixed,7,2);

   AGes:=AGes+A;                                      {aktualisieren der Gesamtfläche}
   XsGes:=XsGes+Xs;                                   {aktualisieren des Gesamtschwerpunktes in X-Richtung}
   YsGes:=YsGes+Ys;                                   {aktualisieren des Gesamtschwerpunkets in Y-Richtung}

end;                                                  {Ende der Zählschleife}

XsGes:=XsGes/2;                                       {berechnen des Gesamtschwerpunktes in X-Richtung}
YsGes:=YsGes/2;                                       {berechnen des Gesamtschwerpunktes in Y-Richtung}

Vx:=2*pi*(YsGes+Sx)*AGes/1000000;                     {berechnen des Rotationsvolumens um die X-Achse}
Vy:=2*pi*(XsGes+Sy)*AGes/1000000;                     {berechnen des Rotationsvolumens um die Y-Achse}


xsge.Caption:=Format('%.2f mm   ',[XsGes]);           {umwandeln und ausgeben des Gesamtschwerpunktes in X-Richtung}
ysge.Caption:=Format('%.2f mm   ',[YsGes]);           {umwandeln und ausgeben des Gesamtschwerpunktes in Y-Richtung}
vxge.Caption:=Format('%.2f dm³   ',[Vx]);             {umwandeln und ausgeben des Rotationsvolumens um die X-Achse}
vyge.Caption:=Format('%.2f dm³   ',[Vy]);             {umwandeln und ausgeben des Rotationsvolumens um die Y-Achse}
flaecheges.Caption:=Format('%.2f mm²  ',[AGes]);      {umwandeln und ausgeben der Gesamtfläche}

end;