delphi中如何在colorbox下显示规定的颜色

小 case

ColorBox1.Style:=[cbCustomColors];

a:=RGB(255,0,0);

b:=RGB(0,255,0);

c:=RGB(0,0,255);

ColorBox1.Items.AddObject('红',TObject(a));

ColorBox1.Items.AddObject('lv',TObject(b));

剩下的自己写.