Lo he probado y a mi no me funciona los siguiente;
ComboBox1->Canvas->BrushCopy(Bounds(Rect.Left+2, Rect.Top, Bitmap->Width, Bitmap->Height), Bitmap, Bounds(0, 0, Bitmap->Width, Bitmap->Height),
clRed);
el BrushCopy me da el siguiente error: Brushcopy is not a member of TCanvas.