[dec]

Hola,

A ver si lo he entendido bien:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   Randomize;
   Color := RGB(Random(255), Random(255), Random(255));
 end;