Problem nach verwenden der inputbox

[kruemelmonster92]

procedure TForm1.Button1Click(Sender: TObject);
var Guthaben, Zinssatz, Zinsen, neues_Guthaben: real; {globale Variablen}
procedure BerechnZins3;
var M : integer;
Nr, monatlicher_Betrag : String;
neuer_Betrag : real;
begin
Zinsen:= 0;
FOR M := 1 to 12 do ;
begin
Nr:= InttoStr(M);
monatlicher_Betrag:= Inputbox ('Eingabe monatlicher Betrag', Nr+'.monatlicher Betrag','');
neuer_Betrag:= StrtoFloatDef(monatlicher_Betrag, 0);
neues_Guthaben:= Guthaben + neuer_Betrag;
Zinsen:= Zinsen + neues_Guthaben*Zinssatz/100;
end;
neues_Guthaben:= Guthaben + Zinsen;
end;

procedure AusgabeZinsen;
begin
Label5.Caption:='neues Guthaben: ' + FloattoStr(neues_Guthaben) + ' €';
Label8.Caption:='Zinsen: ' + FloattoStr(Zinsen) + ' €';
end;

begin
Guthaben:= StrtoFloat(Edit1.Text);
Zinssatz:= StrtoFloat(Edit2.Text);
BerechnZins3;
AusgabeZinsen;

end;

end.

ich hab hier mal das ganze...naja keine ahnung so hatn was halt gelernt