Farbenanzahl

[Qwert Zuiopü]

hallo

in einem Programm wird bei einem bestimmtem Ereignis einem Objekt eine zufällige Farbe zugewiesen, ungefähr so:

Delphi-Quellcode:

procedure ColorChange;
if x <10 then
 begin
 Object.Color:=random(163777215);//so ungefähr
end;

ich habe vorher kein Array oder sowas festgelegt.
Wenn man die Zahl zu klein bestimmt, werden vorallem Farben im Bereich rot-gelb-braun angezeigt.
Wenn man die Zahl zu groß bestimmt, wird vermehrt scharz angezeigt.

Bei welcher Zahl erhählt man zwar alle Farben, aber nicht zu oft schwarz?
Ich vermute dass diese Zahl von meinem PC abhängt, wie kann ich sie dann herausbekommen?

Gruß Qwert