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:

procedure TForm1.Rechne1Click(Sender: TObject);
var  Laufzeit:integer;
      Anfang, Ende, Zinsen, Zinssatz: real;

begin

// Variante mit der repeat-until-Schleife
//Nach wie viel Jahren hat sich sein Kapital verdoppelt ?

  Anfang:=StrToFloat(Anlage_Edit.Text);
  Zinssatz:=StrToFloat(Zinssatz_Edit.Text);

  Laufzeit:=0;
  Ende:=Anfang*2; //kann ich doch hier noch nicht festlegen, oder?
  repeat
    if Laufzeit>5 then StringGrid1.RowCount:=Laufzeit+1; //Anpassen der     Zeilen in Abh. der Laufzeit
    StringGrid1.Cells[0,Laufzeit+1]:=IntToStr(Laufzeit);
    StringGrid1.Cells[1,Laufzeit+1]:=FloatToStrF(Anfang,ffFixed,10,2);
    Zinsen:=Anfang*Zinssatz/100;
    StringGrid1.Cells[2,Laufzeit+1]:=FloatToStrF(Zinsen,ffFixed,10,2);
    Ende:=Anfang+Zinsen;
    StringGrid1.Cells[3,Laufzeit+1]:=FloatToStrF(Ende,ffFixed,10,2);
    Anfang:=Ende;
    Laufzeit:=Laufzeit+1;
  until Anfang>=Ende;
  Laufzeit_Edit.Text:=IntToStr(Laufzeit);

end;					

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:

var  Laufzeit:integer; 
      Anfang, Ende, Zinsen, Zinssatz: real; 

begin 

// Variante mit der repeat-until-Schleife 
//Nach wie viel Jahren hat sich sein Kapital verdoppelt ? 

  Anfang:=StrToFloat(Anlage_Edit.Text); 
  Zinssatz:=StrToFloat(Zinssatz_Edit.Text); 

  Laufzeit:=0; 
  Ende:=Anfang*2; //kann ich doch hier noch nicht festlegen, oder? 
  repeat 
    if Laufzeit>5 then StringGrid1.RowCount:=Laufzeit+1; //Anpassen der     Zeilen in Abh. der Laufzeit 
    StringGrid1.Cells[0,Laufzeit+1]:=IntToStr(Laufzeit); 
    StringGrid1.Cells[1,Laufzeit+1]:=FloatToStrF(Anfang,ffFixed,10,2); 
    Zinsen:=Anfang*Zinssatz/100; 
    StringGrid1.Cells[2,Laufzeit+1]:=FloatToStrF(Zinsen,ffFixed,10,2); 
-->>  Ende:=Anfang+Zinsen;
    StringGrid1.Cells[3,Laufzeit+1]:=FloatToStrF(Ende,ffFixed,10,2); 


    Anfang:=Ende;   ----> warum dieses damit setzt du doch im ersten durchlauf doch gleich die ausgangs bedingung von anfang>=ende 


    Laufzeit:=Laufzeit+1; 
  until Anfang>=Ende; 
  Laufzeit_Edit.Text:=IntToStr(Laufzeit); 

end;					

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

procedure...
var Anfang,Ende:Real;
begin
 Anfang := StrToFloat(Edit1.Text);
 Ende := Anfang*2;
 
  repeat
   {Hier kommt dann deine Zinsberechnung rein
     dabei solltest du jedoch immer nur mit der Variable
     Anfang rechnen!}
   Anfang := Anfang + //Die Zinsen die du errechnet hast
  until Anfang >= Ende;
end;