Изменение цвета формы

[Decessus]

Здравствуйте. Мне нужно создать программу которая при каждом третьем нажатии кнопки случайным образом изменяла бы цвет формы. В Delphi это можно было бы сделать с помощью функций RGB и random, есть ли в Lazarus что-то похожее на RGB????

Добавлено спустя 15 минут 44 секунды:
Тему можно закрыть, нашёл здесь же вот эту функцию

Код: Выделить всё

function RGB(R,G,B : byte) : longint;
var
temp : packed record
R, G, B, Dummy : byte;
end;
begin
temp.R := R;
temp.G := G;
temp.B := B;
temp.Dummy := 0;
result := longint(temp)
end;

[modestusmunh]

Decessus, спасибо за найденную функцию