1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (cbAchtung.Checked) then
    Timer1.Tag := 9 +(Timer1.Tag mod 2) // nächster Zustand
  else
    Timer1.Tag := (Timer1.Tag +1) mod 8; // nächster Zustand
  SetState(Timer1.Tag); // Anzeigen
end;

{
Nr  Vryg  Hryg
0    X..   X..
1    XX.   X..
2    ..X   X..
3    .X.   X..
4    X..   X..
5    X..   XX.
6    X..   ..X
7    X..   .X.

9    .X.   .X.
10   ...   ...
     |||   |||
     |||   ||+> [6]
     |||   |+-> [5,7,9]
     |||   +--> [0..5]
     ||+------> [2]
     |+-------> [1,3,9]
     +--------> [0,1,4..8]
}
procedure TForm1.SetState(const NewState: Integer);
begin
  Rot1.Visible := NewState in [0,1,4..8];
  Gelb1.Visible := NewState in [1,3,9];
  Gruen1.Visible := NewState in [2];
  Rot2.Visible := NewState in [0..5];
  Gelb2.Visible := NewState in [5,7,9];
  Gruen2.Visible := NewState in [6];
end;                    

1:
2:
3:
4:
5:
6:
7:

Gelb1.Visible := NewState in [1,3,9];

// gleichwertig zu

Gelb1.Visible := FALSE;
if ( (NewState = 1) or (NewState = 3) or (NewState = 9) ) then
  Gelb1.Visible := TRUE;