Ich habe das Programm mal so abgeändert, dass es funktioniert. Die Formeln, die du gebrauchst, habe ich nicht kontrolliert.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var eintritt, rate, Austritt, Anzahl, Abzug,
Abzug2, gesamtabzug, Beitrag, KApital, hoch: Extended;
begin
Eintritt := StrToFloat(Edit1.Text);
Rate := StrToFloat(Edit2.Text);
Austritt := StrToFloat(Edit3.Text);
Anzahl := Austritt - Eintritt;
Abzug := (4 * Rate)/100;
Abzug2 := (10 * Rate)/100;
gesamtabzug := Abzug + Abzug2;
Beitrag := rate - gesamtabzug;
hoch := power(1.05, Anzahl);
Kapital := Beitrag * hoch - 1 /(hoch * (hoch - 1));
Edit4.Text := FloatToStr(Kapital);
end;