Сменить цвет формы Delphi

[detalik]

Здравствуйте, с помощью контекстного меню необходимо сменить цвет формы серый — на красный, красный — назелёный, зелёный — на серый); как это сделать с одной кнопкой? Цикл? Т.е при нажатии на кнопку цвета должны меняться последовательно..Спасибо

[Sparkman]

     if Color=clBtnFace then
     Color:=clRed else
     if Color=clRed then
     Color:=clGreen else
     if Color=clGreen then
     Color:=clBtnFace;

[detalik]

спасибо, получилось