Zinsrechnung

[-=Zero47=-]

Was ich machen will:

Ein Programm, bei dem ich die Jahresanzahl, den zinssatz und das kapital eingeben kann und das mir dann dieses in ein endkapital berechnet, was mir dann am ende zur verfügung stehen würde.

Mein Problem ist nun, dass das Prog bei mir hängenbleibt...

bitte um hilfe:

Code:

procedure TForm1.RechnenButtonClick(Sender: TObject);

var AJahre,EJahre,n: integer;

    Zins,AKapital,EKapital: real;


begin

AJahre:=StrToInt(Jahreedit.text);
Zins:=StrToInt(Zinssatzedit.text);
AKapital:=StrToInt(Anfangskapitaledit.text);

n:=0;
repeat

EKapital:=AKapital*(zins/100)+AKapital;

Until n=AJahre;

EJahre:=AJahre;
Endkapitaledit.text:=FloatToStr(EKapital);
Jahre2edit.text:=IntToStr(EJahre);


end;

end.