[lmikle]

Ну, например, как-то так:

Код:

const
  n = 16777216; // 2^24
var
  x : double;
  rgb_raw : integer;
  r, g, b : byte;
  rgb : TColor;
begin
  x := Random; // Get [0..1) number
  rgb_raw := round(x * n); // normalize, so, got value [0..n-1)
  
  // extract chanels
  b := rgb_raw mod 256;
  rgb_raw := rgb_raw div 256;
  g := rgb_raw mod 256;
  r := rgb_raw div 256;
  
  // Get TColor
  rgb := RGB(r,g,b);
end;

Мог где-то немножко напутать, но не думаю, что принципиально.