Problem mit OnChange

[DeddyH]

Ungetestet:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var ek, mwst, endbetrag, prozent1, prozent2, prozent3, prozent4,proend1, proend2, proend3, proend4: real;
begin
  if TryStrToFloat(labelededit1.text,ek) then
    begin
      mwst := ek * 1.19;
      endbetrag := (ek * 1.20) * 1.19;
      labelededit2.text := floattostr (mwst);
      labelededit3.text := floattostr (endbetrag);
      proend1 := (ek * 1.10) * 1.19;
      labelededit8.text := floattostr (proend1);
      proend2 := (ek * 1.30) * 1.19;
      labelededit9.Text := floattostr (proend2);
      proend3 := (ek * 1.40) * 1.19;
      labelededit10.Text := floattostr (proend3);
    end;
end;