Kreuzung - Timer funktioniert nicht

[Ghostleader]

Hay!
Ich programmiere gerade eine Kreuzung. Auf dieser soll ein Auto ganz simpel fahren und bei Rot anhalten. Eigentlich kein Problem. Ich habe seit längerem nichts mehr programmiert und bin ein wenig aus der Übung. Könnte jemand von euch mir auf die Sprünge helfen und mir meinen Fehler zeigen?
Ich bin momentan wohl ein wenig blind...

Mit freundlichen Grüßen,
Ghost

Delphi-Quellcode:

procedure TForm1.TmAmpelTimer(Sender: TObject);
begin
  if Ampel1Ro.Visible = True then
    begin
      Ampel1Ro.Visible:= False;
      Ampel1Ge.Visible:= True;
    end;
  if Ampel1Ge.Visible = True then
    begin
      Ampel1Ge.Visible:= False;
      Ampel1Gr.Visible:=True;
    end;
  if Ampel1Gr.Visible = True then
    begin
      Ampel1Gr.Visible:= False;
      Ampel1Ro.Visible:= True;
    end;