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

[Aphton]

Delphi-Quellcode:

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
// HIER FEHLT EIN -->
begin
  ImAmpelGelb.Visible:=False
  ImAmpelRot.Visible:=True // sonst wird diese Zeile hier immer aufgerufen...
end;