Wer findet den Fehler?

[fox67]

Da mir gerade ein bisschen langweilig ist programmiere ich ein Programm bei dem Autos zufallsgesteuert durch eine Strassenkarte mit mehreren Kreuzungen und Ampelsystemen. Doch das ganze hängt schon beiden Ampeln irgentein Fheler hat sich in den Code eingeschlichen und ich finde ihn nicht.

Code:

procedure TForm1.AmpelsteuerungTimer(Sender: TObject);


begin

if A = 0 then
begin
  ampelsteuerung.Interval:=6000;
  A:=A+1;
  rot1.Brush.Color := clred;
  gelb1.Brush.Color:= clblack;
  gruen1.Brush.Color:= clblack;
  rot2.Brush.Color := clblack;
  gelb2.Brush.Color:= clblack;
  gruen2.Brush.Color:= cllime;
  rot.Brush.Color:= clred;
  gelb.Brush.Color:= clblack;
  gruen.Brush.Color:= clblack;
  rot3.Brush.Color:= clblack;
  gelb3.Brush.Color:= clblack;
  gruen3.Brush.Color:= cllime;
  rot6.Brush.Color:= clred;
  gelb6.Brush.Color:= clblack;
  gruen6.Brush.Color:= clblack;
  rot5.Brush.Color:= clblack;
  gelb5.Brush.Color:= clblack;
  gruen5.Brush.Color:= cllime;
end;

if A = 1 then
begin
  ampelsteuerung.Interval:= 1000;
  A:=A+1;
  rot1.Brush.Color := clred;
  gelb1.Brush.Color:= clyellow;
  gruen1.Brush.Color:= clblack;
  rot2.Brush.Color := clblack;
  gelb2.Brush.Color:= clyellow;
  gruen2.Brush.Color:= clblack;
  rot.Brush.Color:= clred;
  gelb.Brush.Color:= clyellow;
  gruen.Brush.Color:= clblack;
  rot3.Brush.Color:= clblack;
  gelb3.Brush.Color:= clyellow;
  gruen3.Brush.Color:= clblack;
  rot6.Brush.Color:= clred;
  gelb6.Brush.Color:= clyellow;
  gruen6.Brush.Color:= clblack;
  rot5.Brush.Color:= clblack;
  gelb5.Brush.Color:= clyellow;
  gruen5.Brush.Color:= clblack;

end;
if A = 2 then
begin
  ampelsteuerung.Interval:=6000;
   A:=A+1;
  rot1.Brush.Color := clblack;
  gelb1.Brush.Color:= clblack;
  gruen1.Brush.Color:= cllime;
  rot2.Brush.Color := clred;
  gelb2.Brush.Color:= clblack;
  gruen2.Brush.Color:= clblack;
  rot.Brush.Color:= clblack;
  gelb.Brush.Color:= clblack;
  gruen.Brush.Color:= cllime;
  rot3.Brush.Color:= clred;
  gelb3.Brush.Color:= clblack;
  gruen3.Brush.Color:= clblack;
  rot6.Brush.Color:= clblack;
  gelb6.Brush.Color:= clblack;
  gruen6.Brush.Color:= cllime;
  rot5.Brush.Color:= clred;
  gelb5.Brush.Color:= clblack;
  gruen5.Brush.Color:= clblack;

end;
if A = 3 then
begin
  ampelsteuerung.Interval:=1000;
  A:=A-3;
  rot1.Brush.Color := clblack;
  gelb1.Brush.Color:= clyellow;
  gruen1.Brush.Color:= clblack;
  rot2.Brush.Color := clred;
  gelb2.Brush.Color:= clyellow;
  gruen2.Brush.Color:= clblack;
  rot.Brush.Color:= clblack;
  gelb.Brush.Color:= clyellow;
  gruen.Brush.Color:= clblack;
  rot3.Brush.Color:= clred;
  gelb3.Brush.Color:= clyellow;
  gruen3.Brush.Color:= clblack;
  rot6.Brush.Color:= clblack;
  gelb6.Brush.Color:= clyellow;
  gruen6.Brush.Color:= clblack;
  rot5.Brush.Color:= clred;
  gelb5.Brush.Color:= clyellow;
  gruen5.Brush.Color:= clblack;

end;
end;

DIe Ampel schält nicht sondern bleibt in der ersten situtation stehn