Kleines Rechnungsprogramm

[Final]

Moin moin!

Erstmal Danke für die Hilfe, ich hab jetzt mal dran rumgebastelt.
Aber folgendes: ich kann als Beträge keine KOmmazahlen einsetzen und so wie ichs jetzt hab läufts net weil er anstatt else end erwartet wieso auch immer. und wenn ich sowohl <100 als auch >=100 mit zwei getrennten if´s deklarier dann verdreht er wann er mwst versand dazurechnen muss und wann net.
schauts euch einfach mal an:

Delphi-Quellcode:

var erg : real;
    erg2 : real;
    erg3 : real;

Begin
erg := strtofloat(Edit1.text) + strtofloat(Edit2.text) + strtofloat(Edit3.text);

if erg < 100
  then
  label7.Caption := FloatToStr(7.50);
  erg2 := (erg + 7.50) * 0.16;
  label8.caption := FloatToStr(erg2);
  erg3 := (erg + 7.50) * 1.16;
  label9.caption := FloatToStr(erg3)
else
  label7.Caption := FloatToStr(0);
  erg2 := erg * 0.16;
  label8.caption := FloatToStr(erg2);
  erg3 := erg * 1.16;
  label9.caption := FloatToStr(erg3);

end;

end.