BCB闪烁效果,该如何解决

BCB闪烁效果
怎么做成像红绿灯那样的效果呢,用啥控件,提示一下?

[解决办法]
timer换图片。
[解决办法]
一个或两个TImage，再加一个TTimer足矣。
[解决办法]
使用TShape吧！


Timer1Timer
{
Shape1->Brush->Color = Timer1->Tag ? clRed : clGreen;
Timer1->Tag = !Timer1->Tag;
}