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

[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, спасибо за найденную функцию