Как в лазарусе запрограммировать кнопку ,чтобы работал светофор ,который я нарисовала в лазарусе ? TForm1 = class(TForm)Button1: TButton;Shape1: TShape;Shape2: TShape;Shape3: TShape;Shape4: TShape;Shape5: TShape;procedure TForm1.Button1Click(Sender: TObject);TForm1 = class(TForm)Shape1.Brush.Color:=clGray;Shape2.Brush.Color:=clGray;Shape3.Brush.Color:=clRed;Shape4.Brush.Color:=clYellow;Shape5.Brush.Color:=clGreen;