Kreuzung - Timer funktioniert nicht

[DeddyH]

Klar bleibt die rot.

Zitat:

Delphi-Quellcode:

procedure TForm1.TmAmpelTimer(Sender: TObject);
begin
  if Ampel1Ro.Visible{ = True} then //trifft zu
    begin
      Ampel1Ro.Visible:= False;
      Ampel1Ge.Visible:= True;      //jetzt gelb sichtbar
    end;
  if Ampel1Ge.Visible{ = True} then //trifft nach obiger Änderung zu
    begin
      Ampel1Ge.Visible:= False;
      Ampel1Gr.Visible:=True;       //nun grün sichtbar
    end;
  if Ampel1Gr.Visible{ = True} then //trifft also zu
    begin
      Ampel1Gr.Visible:= False;
      Ampel1Ro.Visible:= True;      //jetzt sind wir wieder auf rot
    end;