Ampel mit einstellbaren Intervallen

[NMR]

Hi,
Ich bin zurzeit dabei eine Ampelsteuerung zu proggen. Eine Sache die schon viele gemacht haben^^
Aber meine Frage ist , wie ich den Intervall verändern kann
habe eine normale Ampelsteuerung.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin

case intervall of
1: begin
       r
      sh_oben.Brush.Color := clRed;
      sh_mitte.Brush.Color := clWhite;
      sh_unten.Brush.Color := clWhite;
  end;
rg: begin
      sh_oben.Brush.Color := clRed;
      sh_mitte.Brush.Color := clyellow;
      sh_unten.Brush.Color := clWhite;
    end;

....

Bei einem case of muss ich jaKonstante benutzen, wie dort die 1: aber würd gern eine Variablen benutzen...(oben rg)
kann ich das iwie anders machen. Will das nicht zu gern alles mit If machen.
Hoffe könnt mir paar Tipps geben wie ich es sonst anders machen könnte.

danke