Имитация светофора и машины

procedure TForm1.FormCreate(Sender: TObject);
begin
dvig:=65;
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
Panel1.Left:= (Form1.Width div 2)-35;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
case Timer2.Interval of
10000: begin
Shape4.Brush.Color:=clWhite;
Shape3.Brush.Color:=clYellow;
Timer2.Interval:= 3000;
end;
3000: begin
Shape3.Brush.Color:=clWhite;
Shape2.Brush.Color:=clRed;
Timer2.Interval:= 15000;
end;
15000: begin
Shape3.Brush.Color:=clYellow;
Timer2.Interval:= 2000;
end;
 
2000: begin
Shape2.Brush.Color:=clWhite;
Shape3.Brush.Color:=clWhite;
Shape4.Brush.Color:=clGreen;
Timer2.Interval:= 10000;
end;
end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (Shape4.Brush.Color=clWhite)and((Panel1.Left)-dvig=Shape1.Left) then
 
else begin
if (dvig=65)and((Shape1.Left)<((Form1.Width)-90)) then Shape1.Left:=(Shape1.Left)+1
else dvig:=-50;
 
if (dvig=-50)and((Shape1.Left)>8) then Shape1.Left:=(Shape1.Left)-1
else dvig:=65;
end;
end;
 
end.