Du brauchst nur 4 Zustände bei deiner ampel
also
Delphi-Quellcode:
case i of
1:begin ... end;
2:begin ... end;
3:begin ... end;
4:begin ... end;
end;
dein intervall kannst du dann dort einsetzten indem du den intervall des timers änderst
timer1.intervall := rg; //oder 1000 oder 2000 ka was du willst halt ^^