procedure TForm1.Button1Click(Sender: TObject);
begin
     Form1.Color := RGB(100, 100, 100);
end;

Red Green Blue.
Each number should be from 0 to 255.