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:

var
  Form1: TForm1;
  a,x1,x2,x3,y : Extended;
  Tzaehler: Integer;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Tzaehler:=0;
y:= 1;
Repeat
      Tzaehler:=Tzaehler + 1;
      StringGrid1.cells[0,Tzaehler]:= IntToStr(Tzaehler); //Zähler für x-Wert

      a :=  (StrToInt (MaskEdit1.text)); //Zu berechnender Wert wird eingelesen


      x1:= a / y; //Rechnung
      x2:= x1 + y;
      x3:= x2 / 2;

      StringGrid1.cells[1,Tzaehler]:= FloatToStr (x3); //Ausgabe
      y:=x3;

until Tzaehler = 20;

end;					

1:
2:
3:

Repeat 
  -->      Tzaehler:=Tzaehler + 1; 
until Tzaehler = 20;					

1:

StringGrid.Cells[spalte,zeile]:= 'irgendwas'					

1:
2:
3:

      x1:= a / y; //Rechnung 
      x2:= x1 + y; 
      x3:= x2 / 2;					

1:

x1:= a / y; //Rechnung					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

for  Tzaehler:=1 to 20 do 
begin 
  StringGrid1.cells[0,Tzaehler]:= IntToStr(Tzaehler); // Zähler für x-Wert 

   a := (StrToInt (MaskEdit1.text)); //Zu berechnender Wert wird eingelesen 


   x1:= a / y; //Rechnung 
   x2:= x1 + y; 
   x3:= x2 / 2; 

   StringGrid1.cells[1,Tzaehler]:= FloatToStr (x3); // Ausgabe 
   y:=x3; 

end;