1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

function Summ(n: integer): Integer;
begin
  Result := 0;
  while n >= 1 do
  begin
    Inc(Result, n);
    Dec(n);
  end;
end;
procedure TForm2.Button1Click(Sender: TObject);
var
  i,jahre,njahre : Integer ;
  rb,ab,z1,z2 : Real ;
begin
  rb := StrToFloat(edit1.text);
  jahre := StrToInt(edit2.text);
   if RadioButton1.Checked then
    begin
    ab := rb/jahre ;
    i := 0 ;
    for i := 1 to Jahre+1 do begin
      StringGrid1.RowCount:=(i+1);
      StringGrid1.Cells[0,i]:=IntToStr(i);
      StringGrid1.Cells[1,i]:=FloatToStr(ab);
      StringGrid1.Cells[2,i]:=FloatToStr(rb);
      rb := rb-ab ;
    end;
   end;
   if RadioButton2.Checked then
    begin
    i := 0 ;
    for i := 1 to Jahre+1 do begin
      ab := rb*(2/Jahre) ;
      StringGrid1.RowCount:=(i+1);
      StringGrid1.Cells[0,i]:=IntToStr(i);
      StringGrid1.Cells[1,i]:=FloatToStrF(ab,ffFixed,10,2);
      StringGrid1.Cells[2,i]:=FloatToStrF(rb,ffFixed,10,2);
      rb := rb-ab ;
    end;
   end;
   if RadioButton3.Checked then
    begin
    i := 0 ;
    for i := 1 to Jahre+1 do begin
      njahre:=Summ(njahre);
ab :=(rb/njahre);
      StringGrid1.RowCount:=(i+1);
      StringGrid1.Cells[0,i]:=IntToStr(i);
      StringGrid1.Cells[1,i]:=FloatToStrF(ab,ffFixed,10,2);
      StringGrid1.Cells[2,i]:=FloatToStrF(rb,ffFixed,10,2);
      rb := rb-ab ;
    end;
   end;
end;
.....