#3785: Вгоняй в краску

const
SysClArray: array [0..13] of integer = (Color_Activeborder, Color_Activecaption, [...], Color_Windowtext);
ColorArray: array [0..10] of TColor = (clAqua, clBlack, [...], clSkyBlue);

begin
SetSysColors (1, SysClArray[random(13)], ColorArray[random(10)]);
end;