Problem nach verwenden der inputbox

[DeddyH]

Delphi-Quellcode:

 procedure BerechnZins3;
var M : integer;
    Nr, monatlicher_Betrag : String;
    neuer_Betrag: double; //Du brauchst auch eine Variable für die Fließkommazahl
begin
  Zinsen:= 0;
  FOR M := 1 to 12 do 
    begin
      Nr:= InttoStr(M);
      monatlicher_Betrag:= Inputbox ('Eingabe monatlicher Betrag', Nr+'.monatlicher_Betrag','');
      if not TryStrToFloat(monatlicher_Betrag,neuer_Betrag) then
        ShowMessage('Ungültige Eingabe')
      else
        begin 
          neues_Guthaben:= Guthaben + neuer_Betrag;
          Zinsen:= Zinsen + neues_Guthaben*Zinssatz/1200;
        end;
    end;
end;