Delphi-Anfänger - Was mache ich mit diesem if-Satz falsch?

[jfheins]

Und formatieren den Quellcode

Delphi-Quellcode:

   procedure TForm1.AmpelUmschaltenClick(Sender: TObject);
   begin
      if imAmpelRot.Visible then
      begin
         imAmpelRot.Visible := False;
         imAmpelRotGelb.Visible := True;
      end
      else if imAmpelRotGelb.Visible then
      begin
         imAmpelRotGelb.Visible := False;
         imAmpelGruen.Visible := True;
      end
      else if ImAmpelGruen.Visible then
      begin
         ImAmpelGruen.Visible := False;
         ImAmpelGelb.Visible := True;
      end
      else
         ImAmpelGelb.Visible := False;
      
      ImAmpelRot.Visible:=True; // Sicher dass das so gewollt ist?
   end;                
end.

Durch das Einrücken wird der Fehler direkt sichtbar