Delphi Zinsrechner

[Ginko]

Ach und die Fehlerabfrage sollt gleich zu anfag beginnen und nicht wenn schon mit Werten
gerechnet wurde, also so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
    begin
    try
    val (edit1.text, anfangskapital, code);      // Eingabe
    val (edit3.text, Jahre, code2); 
    
    if (code = 0) and (code2 = 0) then
     begin 
     if Jahre <=4 then
       begin
         Zinssatz := 3;
         Label4.Caption := 'mit einem Zinssatz von 3%';
       end
[............]