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;