奇怪的问题求解

[hongss]

需要用按钮实现控制电机功能，但是在实现功能过程中，需要改变按钮颜色以表示动作。
Delphi自带按钮，TButton，TBitBtn，TSpeedButton均无颜色属性，故采用Panel完成。

但是，在用Panel改变颜色过程中，出现问题：

Panel1.color:= clRed;
//电机动作
Sleep(500);
//电机动作清零
Panel1.color:= clLime;

点击Panel后，电机动作了，但是，颜色只能看到最后的 clLime,看不到clRed,为什么？

召唤大侠指点一二……

[hongss]

居然发了两次。。。。

[yangkunjie]

跟踪调试一下

[suton]

Panel1.color:= clRed;
//电机动作
Application.ProcessMessage;
Sleep(500);

//电机动作清零
Panel1.color:= clLime;

[FreshLink]

要用Application.ProcessMessages;