1:
2:
3:
4:
5:
6:
7:
8:
9:

function Schulden:real;
begin
  If Schulden> 0 then     
  begin 
    inc(zaehler);
    Schulden:=(1+strtofloat(edit2.Text))*Schulden-strtoint(edit4.text);
  end
  else Schulden:=strtofloat(edit3.Text);
end;					

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

procedure TForm1.Button1Click(Sender: TObject);
var
Zinssatz, Kredit: Real;
Tilgung, Zeitschritte: Integer;
begin
Zinssatz := StrToFloat(InputBox('Wie hoch ist der Zinssatz? (in %)', 'Frage', '1,8'));
Kredit := StrToFloat(InputBox('Wie viel Kredit wird aufgenommen? (in Euro)', 'Frage', '10000'));
Tilgung := StrToInt(InputBox('Wie hoch ist die Tilgung pro Zeitschritt? (in Euro)', 'Frage', '500'));
Zeitschritte := 0;
repeat
Kredit := Kredit + (Kredit * (Zinssatz / 100));
Kredit := Kredit - Tilgung;
Zeitschritte := Zeitschritte + 1;
until Kredit <= 0;
ShowMessage('Nach '+IntToStr(Zeitschritte)+' Zeitschritten ist der Kredit abbezahlt.');
end;