Ampelkreuzung

[GoodGuyGreg]

Hey

Ich weiss, dass es zu dem thema schon mehrere threads gab, aber leider hat keiner davon mein Problem gelöst.

Also ich soll eine Ampelkreuzung Programmieren mit einem Timer und 4 ampeln habe aber folgendes Problem.

Delphi-Quellcode:

IF imlrot2.Visible=false
  then begin
imlgruen.Visible:=true   ;
imrgruen.Visible:=true    ;
imogruen.Visible:=false    ;
imugruen.Visible:=false     ;
imlgelb.Visible:=false       ;
imrgelb.Visible:=false        ;
imogelb.Visible:=false         ;
imugelb.Visible:=false          ;
imrrot.Visible:=false            ;
imlrot.Visible:=false             ;
imorot.Visible:=true              ;
imurot.Visible:=true                ;
imlrot2.Visible:=false               ;
imrrot2.Visible:=false                ;
imurot2.Visible:=false                 ;
imorot2.Visible:=false                  ;
imlgelbrot.Visible:=false                ;
imrgelbrot.Visible:=false                 ;
imugelbrot.Visible:=false                  ;
imogelbrot.Visible:=false ;
tiampel.Interval:=5000                     ;

end  ;

 if imlgruen.visible=true
then begin  ;
imlgruen.Visible:=false   ;
imrgruen.Visible:=false    ;
imogruen.Visible:=false    ;
imugruen.Visible:=faLSE     ;
imlgelb.Visible:=false       ;
imrgelb.Visible:=false        ;
imogelb.Visible:=false         ;
imugelb.Visible:=false          ;
imrrot.Visible:=false            ;
imlrot.Visible:=false             ;
imorot.Visible:=false               ;
imurot.Visible:=false                ;
imlrot2.Visible:=false               ;
imrrot2.Visible:=false                ;
imurot2.Visible:=false                 ;
imorot2.Visible:=false                  ;
imlgelbrot.Visible:=true                ;
imrgelbrot.Visible:=true                 ;
imugelbrot.Visible:=true                  ;
imogelbrot.Visible:=true
 end
    else if imogelbrot.Visible=true
then begin  ;
imlgruen.Visible:=false   ;
imrgruen.Visible:=false    ;
imogruen.Visible:=true    ;
imugruen.Visible:=true     ;
imlgelb.Visible:=false       ;
imrgelb.Visible:=false        ;
imogelb.Visible:=false         ;
imugelb.Visible:=false          ;
imrrot.Visible:=true            ;
imlrot.Visible:=true             ;
imorot.Visible:=false               ;
imurot.Visible:=false                ;
imlrot2.Visible:=false               ;
imrrot2.Visible:=false                ;
imurot2.Visible:=false                 ;
imorot2.Visible:=false                  ;
imlgelbrot.Visible:=false            ;
imrgelbrot.Visible:=false                ;
imugelbrot.Visible:=false                 ;
imogelbrot.Visible:=false                  ;

Wenn ich die execute jezt ausführe springen alle ampeln Auf gelbrot und nicht wie es eig. seien sollte erst auf grün dann auf gelbrot und dann auf rot.
Wäre nett wenn mir jemand helfen könnte und sich die mühe macht meinen Quellcode zu lesen