Kreditendwert wird negativ

[Klaus01]

Hallo,

eventuell könnte man es auch so angehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer ;
  kredit,zinsen,zinssatz,rate : real ;

begin
  kredit := StrToFloat(edit1.Text);
  rate := StrToFloat(edit2.Text);
  zinssatz := StrToFloat(edit3.Text)/100;
  i := 0 ; 

  while (Kredit - rate) > 0 do
  begin
    inc(i);
    zinsen := kredit*zinssatz/12 ;
    kredit := kredit-rate+zinsen ;
    Memo1.Lines.Add(format('%.2d  %5.2f   %5.2f',[i,kredit,zinsen]));  // das hier war nur für mich zum Testen

    Panel1.Caption := IntToStr(i);
    Panel2.Caption := FloatToStr(i/12);
    Panel4.Caption := FloatToStrF(kredit,ffFixed,10,2);
  end;
end;

Grüße
Klaus