Übersetzung C -> Delphi: Switch ohne break

[Haru]

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    lblEinwurf: TLabel;
    lblRest: TLabel;
    edtEinwurf: TEdit;
    edtRest: TEdit;
    pnlAuswahl: TPanel;
    pnlUeberschrift: TPanel;
    pnlStatus: TPanel;
    btnEinwurf: TBitBtn;
    btnNeu: TBitBtn;
    lblGetr: TLabel;
    edtGetr: TEdit;
    lblCola: TLabel;
    lblFanta: TLabel;
    lblSprite: TLabel;
    lblWasser: TLabel;
    lblSaft: TLabel;
    btnGetr: TBitBtn;
    btnEnde: TBitBtn;
    procedure btnEinwurfClick(Sender: TObject);
    procedure btnEndeClick(Sender: TObject);
    procedure btnNeuClick(Sender: TObject);
    procedure btnGetrClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var Einwurf:Real;
procedure TForm1.btnEinwurfClick(Sender: TObject);
begin
Einwurf:=StrToFloat(edtEinwurf.Text);
pnlStatus.Caption:=('Bitte wählen Sie ein Getränk aus, indem die die dafür vorgesehenen Zahl bei Getränk eingeben und mit OK bestätigen!');
end;

procedure TForm1.btnEndeClick(Sender: TObject);
begin
close;
end;

procedure TForm1.btnNeuClick(Sender: TObject);
begin
edtEinwurf.Clear;
edtRest.Clear;
end;

procedure TForm1.btnGetrClick(Sender: TObject);
begin

 case StrToInt(edtGetr.text) of
   1:  begin
                edtRest.Text:=(einwurf-1.20);
                pnlStatus.Caption:='Danke für ihren Einkauf!';
           end;
   2: begin
                edtRest.Text:=(einwurf-1.20);
                pnlStatus.Caption:='Danke für ihren Einkauf!';
            end;
   3: begin
                edtRest.Text:=(einwurf-1.20);
                pnlStatus.Caption:='Danke für ihren Einkauf!';
            end;
   4: begin
                edtRest.Text:=(einwurf-1.00);
                pnlStatus.Caption:='Danke für ihren Einkauf!';
            end;
   5: begin
                edtRest.Text:=(einwurf-1.50);
                pnlStatus.Caption:='Danke für ihren Einkauf!';
            end;
 else
   pnlStatus.Caption:='Sie haben zu wenig Geld eingeworfen!';
 end;
end;

end.

viel spaß..ich geh meine kopfschmerzen auszockn....inzw wurde das eh mind. 5milliarden mal verändert...