Delphi

[Apfel]

ich hab schon wieder ein problem:
unit Ampel;

interface

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

type
  TForm1 = class(TForm)
    Rot_sh: TShape;
    Gelb_sh: TShape;
    Gruen_sh: TShape;
    Wechsel_B: TButton;
    procedure Wechsel_BClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   var
     Ampelstellung: Integer;

implementation

{$R *.dfm}

procedure TForm1.Wechsel_BClick(Sender: TObject);
begin

case Ampelstellung of
1: begin //rot_sh.brush.Color:=clred;
         //gelb_sh.brush.color:=clsilver;
         //gruen_sh.brush.color:=clsilver;
           ampelstellung:= 2
   end;

2: begin //rot_sh.brush.color:=clred;
         //gelb_Sh.brush.color:=clyellow;
         //gruen_sh.brush.color:=clsilver;
           ampelstellung:=3
   end;
3: begin //rot_sh.brush.color:=clsilver;
         //gelb_sh.brush.Color:=clsilver;
         //gruen_sh.brush.color:=clgreen;
           ampelstellung:=4
   end;
4: begin //rot_sh.Brush.Color:=clsilver;
         //gelb_sh.brush.color:=clyellow;
         //gruen_sh.Brush.color:=clsilver;
           ampelstellung:=1
   end;

end;
end;

da kommt dann der fehler: declaration expected but end of file found.
kann natürlich auch gut sein, dass ich da irgendwas komplett falsch gemacht habe, nur hab ich keine Ahnung was...