как через лазарус сделать чтобы форма меняла цвет от одного до другого(от красного к черному и потом наоборот)

на просторах интернета

ну хз

мне надо более проще

препод сказал в одну строчку пишится

и мы так и не предумали не чего

1 var2 cl : array[0 .. 2] of TColor = (clGreen, clRed, clYellow);3 curr : integer = 0;4 5 procedure TForm1.Button1Click(Sender: TObject);6 begin7 curr := succ(curr) mod 3;8 Color := cl[curr];9 end;10 11 procedure TForm1.FormCreate(Sender: TObject);12 begin13 Color := cl[curr];14 end;