Hallo,
nimm doch einfach eine Combobox und stelle Style auf csOwnerDrawVariable.
Dann Farben hinzufügen...
Delphi-Quellcode:
Items.Add('clBlack');
Items.Add('clMaroon');
Items.Add('clGreen');
...
... und über DrawItem
Canvas.Brush.Color := StringToColor(ComboBox.Items[Index]);
Gruß RoGa