Farbe in ColorBox ereiteren

[thomas2009]

Hi

ich habe nicht soviel Farben in ColorBox
Wie kann ich weiteren Farbe über ColorBox aufrufen, um die Möglichkeit für den Anwender zu geben, eine beliebige Farbe aus der Farbeintabelle zu wählen ?

Delphi-Quellcode:

  object ColorBox1: TColorBox
    Left = 43
    Top = 17
    Width = 156
    Height = 22
    Selected = clBlue
    Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeNone, cbIncludeDefault, cbCustomColor, cbPrettyNames]
    ItemHeight = 16
    TabOrder = 0
  end