Kreuzung - If, then, else - Problem

[Ghostleader]

Hey!
Ich mache gerade ein Programm, bei dem ein Auto über eine Kreuzung fahren soll und bei Rot halten soll.
Die Ampel soll so schalten:
Rot // Gelb-Rot // Grün
Grün // Gelb // Rot

Wie eine normale Ampel eben.

Folgendes Problem:
Die Ampel schalltet nicht wie sie soll sondern so:
Rot, Gelb, Gelbrot, Grün

Ich finde meinen Fehler nicht, bitte helft mir:

Delphi-Quellcode:

  if ImAmpel1Ro.Visible = True then
    begin
      ImAmpel1Ro.Visible:= False;
      ImAmpel1Gero.Visible:= True;
    end
  else if ImAmpel1Gero.Visible = True then
    begin
      ImAmpel1Gero.Visible:= False;
      ImAmpel1Gr.Visible:= True;
    end
  else if ImAmpel1Gr.Visible = True then
    begin
      ImAmpel1Gr.Visible:= False;
      ImAmpel1Ge.Visible:= True;
    end
  else if ImAmpel1Ge.Visible = True then
    begin
      ImAmpel1Ge.Visible:= False;
      ImAmpel1Ro.Visible:= True;
    end;

Die Reihenfolge die ich benutze ist doch richtig oder nicht?
Rot, Gelb-Rot, Grün, Gelb, Rot, usw.

Mfg Ghostleader

[Matze]

Das wurde hier begonnen zu diskutieren (bzw sogar erklärt), also führe das bitte dort fort.
Die Tipps von dort scheinst du komplett zu ignorieren. Es wurde einiges bzgl. des Vergleichs auf "true" (bzw. auch "false") genannt.

G E S C H L O S S E N