Kreuzung - Timer funktioniert nicht

[Teekeks]

Zitat von Ghostleader:

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

Hast du evtl. die Bezeichnungen vertauscht?
Achso: und bitte keinen Vergleich auf true, also bitte das so machen:

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;