[[basti]]

Si quieres los valores 0 o 255:

Código Delphi [-]
shape1.brush.color = RGB(255 * Random(1), 255 * Random(1), 255 * Random(1));