random - чтобы из СolorBox цвет выбирался случайно

ColorBox1->Selected = random(128); //к примеру
ShowMessage(ColorBox1->Selected);

Randomize();
const NUM_COLOR = 128;
k=Random(NUM_COLOR);
ColorBox1->Selected = k;
ShowMessage(ColorBox1->Selected);

ShowMessage(IntToStr(k));

randomize();
// ...
ColorBox1->Selected = (TColor)RGB(random(255),random(255),random(255));

TColor colors[52] = {clScrollBar, clBackground, clActiveCaption,
  clInactiveCaption, clMenu, clWindow, clWindowFrame, clMenuText,
  clWindowText, clCaptionText, clActiveBorder, clInactiveBorder,
  clAppWorkSpace, clHighlight, clHighlightText, clBtnFace,
  clBtnShadow, clGrayText, clBtnText, clInactiveCaptionText,
  clBtnHighlight, cl3DDkShadow, cl3DLight, clInfoText, clInfoBk,
  clHotLight, clGradientActiveCaption, clGradientInactiveCaption,
  clMenuHighlight, clMenuBar, clBlack, clMaroon, clGreen,
  clOlive, clNavy, clPurple, clTeal, clGray, clSilver, clRed,
  clLime, clYellow, clBlue, clFuchsia, clAqua, clLtGray,
  clDkGray, clWhite, clMoneyGreen, clSkyBlue, clCream, clMedGray};
randomize();
ColorBox1->Selected = colors[random(52)];