Bilderschleife

[Bellla]

ich hab jetzt

Code:

var
  Form1: TForm1;
  status:integer;
  i:integer;

implementation

{$R *.dfm}

procedure TForm1.B1Click(Sender: TObject);
begin
 case status of
        0:
begin
sleep ( 500);
image2.visible:=true;
image1.visible:=false;
status:=1;
end;

2:
begin
sleep(500);
image2.visible:=false;
image3.visible:=true;
status:=2;
end;

3:
begin
sleep(500);
image3.visible:=false;
image4.visible:=true;
status:=3;

end;

end;
end;
end.

aber nach wenn das 2. bild erscheint und man nochmal drückt passiert nichts warum?