小 caseColorBox1.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));剩下的自己写.