>>459
VCLがバグっとるね。OnSelectに以下のように書いとけば回避できると思う。

void __fastcall TForm1::ColorBox1Select(TObject *Sender)
{
    if (ColorBox1->Style.Contains(cbCustomColor))
    {
        int color = ::SendMessage(ColorBox1->Handle, CB_GETITEMDATA, 0, 0);

        if (color == -1)
            ::SendMessage(ColorBox1->Handle, CB_SETITEMDATA, 0, 0);
    }
}