random Цвет формы

[guffer]

Как сделать так,чтобы при срабатывании таймера,форма меняла свой цвет? Я думаю что-то типа

procedure TForm1.Timer1Timer(Sender: TObject);
var
a:TColor;
b:TColor;
c:TColor;
d:TColor;
e:TColor;
f:TColor;
g:TColor;
begin
a:=clBlack;
b:=clRed;
c:=clGreen;
d:=clBtnFace;
e:=clLime;
f:=clYellow;
g:=clAqua;
Form1.Color:=random(a,b,c,d,e,f,g)

код конечно страшненький,но я на вас товарищи надеюсь.

[Вавел из ГМТУ]

Randomize;
Form1.Color := RGB(Random(255), Random(255), Random(255));

Не??

[Alex Cones]

Зачем такие сложности?
TColor в принципе тоже самое, что и интеджер.
Достаточно

Form1.Color:=Random($FFFFFF);