如何用一个Button控制3个shape轮流变颜色啊

怎么用一个Button控制3个shape轮流变颜色啊？
就是3个shape都只有2个颜色，点下Button第一个变，其他不变。再点第二个变，第一个和第三个还是原来的颜色，重复这个。 2个的我会，控制3个不会了啊，求助。。 毕业设计求助
[解决办法]
Too simple.

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    Button1->Tag = 1;
}

// ---------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Shape1->Brush->Color = Button1->Tag == 1? clRed: clWhite;
    Shape2->Brush->Color = Button1->Tag == 2? clRed: clWhite;
    Shape3->Brush->Color = Button1->Tag == 3? clRed: clWhite;

    Button1->Tag++;
    if (Button1->Tag > 3) Button1->Tag = 1;
}