在ColorDialog里预置自定义颜色

涛

转自：http://www.solokey.cn/
用起来还真的挺麻烦.
const
  ColorPrefix = 'Color';
var
  i: integer;
begin
for i := 0 to 15 do
  ColorDialog1.CustomColors.Values[ColorPrefix + Char(Ord('A') + i)] := IntToHex(Color_Ary, 8); 
end;