红绿灯引发的第二个问题：请求帮忙解决纠正

杰克

      菜鸟突发奇想，做三个灯，不同颜色，第一种情况，如果当第一个灯为clYellow ，那其他两个就分别为clGray，clGreen，这个一测试成功了，
procedure TForm1.FormCreate(Sender: TObject);
begin
if Shape1.Brush.Color=clYellow then
   Shape2.Brush.Color:=clGray ;
   Shape3.Brush.Color:=clGreen ;
end;

     第二情况：想让一个按钮来控制，当按下按钮时，第三个灯如果为clgreen，按下之后那么就实现第二个灯为clred，第一个灯为cllime。但是出现错误了，不能进行，请问为什么，
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Shape3.Brush.Color:=clGreen then
   Shape2.Brush.Color:=clRed ;
   Shape1.Brush.Color=clLime ;
end;
end.

杰克

                               
登录/注册后可看大图