procedure TForm1.FormCreate(Sender: TObject);
Var R,G,B :Integer;
begin
Randomize; //Initialise le générateur interne de nombre aléatoire
R:=Random(256); //Génère des nombres aléatoires entre 0 <= X < 256
G:=Random(256);
B:=Random(256);
Form1.Color:=RGB(R,G,B); //Fixe la couleur de la form
end;