unit zinseszins;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Eintrittsalter: TLabel;
    Endalter: TLabel;
    Jahresbeitrag: TLabel;
    Endbetrag: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
 function Power (Base,Exponent:Extended):Extended;
var eintritt,austritt,rate,
Anzahl,Abzug,Abzug2,gesamtabzug,Beitrag,KApital:integer;
 hoch:extended;
begin
edit1.text:=inttostr(eintritt);
edit2.text:=inttostr(Rate);
edit3.text:=inttostr (Austritt);
Anzahl:=Austritt-Eintritt;
Abzug:= [(Rate*4)/100];
Abzug2:=[(Rate*10)/100];
gesamtabzug:=Abzug+Abzug2;
Beitrag:=rate-Abzug;
hoch:=power(1,05,Anzahl);
Kapital:=Beitrag*[hoch-1/[hoch*(hoch-1)];
Kapital:=inttostr (edit4.text);
end;
end;
end.