Mehrwertsteuer - Lösung

unit mMehrwertsteuer;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    edPreis: TEdit;
    Label1: TLabel;
    btOK: TButton;
    edMws: TEdit;
    edNetto: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    btLoeschen: TButton;
    procedure btOKClick(Sender: TObject);
    procedure btLoeschenClick(Sender: TObject);
    procedure edPreisChange(Sender: TObject);
  private
    { Private-Deklarationen }
    function mehrwertsteuer(preis, prozent: Real): Real;
    procedure ausgabeLoeschen;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function TForm1.mehrwertsteuer(preis, prozent: Real): Real;
begin
  mehrwertsteuer := preis * prozent / (prozent+100);
end;

procedure TForm1.ausgabeLoeschen;
begin
  edMws.Text := '';
  edNetto.Text := '';
end;

procedure TForm1.btOKClick(Sender: TObject);
var preis, mws, netto: Real;
begin
  preis := StrToFloat(edPreis.Text);
  mws := mehrwertsteuer(preis,16);
  netto := preis - mws;
  edMws.Text := FloatToStrF(mws, ffFixed, 10, 2);
  edNetto.Text := FloatToStrF(netto, ffFixed, 10, 2);
end;

procedure TForm1.btLoeschenClick(Sender: TObject);
begin
  edPreis.Text := '';
  ausgabeLoeschen
end;

procedure TForm1.edPreisChange(Sender: TObject);
begin
  ausgabeLoeschen
end;

end.