In Delphi ein Kapital mit einer ListBox berechnen

[kamel08]

und dann die Folgejahre:

procedure TForm1.BtnBerechnenClick(Sender: TObject);
var startkapital,zinssatz:extended; // kapital umdefiniert in 'startkapital'
kapital:extended; // für das Ergebnis
begin
startkapital := StrToFloat(edtkapital.text);

Zinssatz := StrToFloat(edtzinssatz.text);
Zinssatz := (zinssatz/100);

kapital := startkapital + (startkapital * Zinssatz);

edtergebnis.Text := FloatToStr(kapital);

LstBox.Items.Add(FloatToStr(kapital));

edtkapital.text := FloatToStr(kapital);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edtkapital.text := '';
edtzinssatz.text := '';
edtergebnis.Text := '';
LstBox.Clear;
end;