CaseOf Anweisung---mehrere Befehle pro Auswahlkriterium?

[SimOr]

Ich wollte ne "Ampelschaltung" als Übung machen, also 4 Images, 3 unsichtbar und 1 sichtbar.
Nun moechte ich das das image 1(rot) unsichtbar wird und das image 2(Rot/Gelb)sichtbar wird.
Danach(ein weiterer click auf den Button) soll das Image2 unsichtbar werden und Image3(Grün) soll erscheinen.
Danach soll Image 3 unsichtbar und Image4(gelb) sichtbar werden. Ein weiterer Click soll das Image 1 wieder sichtbar und Image4 unsichtbar machen.

Falls ihr das nicht verstanden habt(ein bischen unübersichtlich, ich weiß)
hier der Source mit If Then Else

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if ImRed.visible=True then
begin
     ImRed.visible:=False;
     ImRY.visible:=True;
end
else
begin
     if ImRY.visible=True then
     begin
          ImRY.visible:=False;
          ImGreen.visible:=True;
     end
     else
     begin
          if ImGreen.visible=True then
          begin
               ImGreen.visible:=False;
               ImYellow.visible:=True;
          end
          else
          begin
               if ImYellow.visible=True then
               begin
                    ImYellow.visible:=False;
                    Imred.visible:=True;
               end
           end
       end
  end

Hoffe du kannst damit was anfangen.