Раскрасить ярлычки TPageControl

TabSheet1->Brush->Color = clBlue; // Меняем

namespace Colored_TabSheet
{
    class TPageControl : public Comctrls::TPageControl
    {
    public:
        __fastcall virtual TPageControl(Classes::TComponent* AOwner)
            : Comctrls::TPageControl(AOwner)
        {
            OwnerDraw = true;
        }
 
    protected:
        MESSAGE void __fastcall MyDrawItem(TWMDrawItem &Message)
        {
            TColor tabColors[3] = {clRed, clTeal, clYellow}; // Здесь нужно быть уверенным, что цветов будет достаточно для ВСЕХ вкладок
            TColor Color = tabColors[Message.DrawItemStruct->itemID];
 
            ::SetDCBrushColor(Message.DrawItemStruct->hDC, Color);
            ::SelectClipRgn(Message.DrawItemStruct->hDC, 0);
 
            TRect Rect = Message.DrawItemStruct->rcItem;
            if(!Message.DrawItemStruct->itemState & ODS_SELECTED)
            {
                InflateRect(Rect, 2, 2);
            }
            FillRect(Message.DrawItemStruct->hDC, &Rect, (HBRUSH)::GetStockObject(DC_BRUSH));
            String s = Pages[Message.DrawItemStruct->itemID]->Caption;
            ::SetBkMode(Message.DrawItemStruct->hDC, TRANSPARENT);
            ::DrawText(Message.DrawItemStruct->hDC, s.c_str(), s.Length(), &Rect, DT_CENTER);
 
            // Активную вкладку помечаем рамкой фокуса ввода
            if(Message.DrawItemStruct->itemState & ODS_SELECTED)
            {
                ::SetROP2(Message.DrawItemStruct->hDC, R2_NOTXORPEN);
                ::DrawFocusRect(Message.DrawItemStruct->hDC, &Rect);
            }
 
            HRGN Rgn = ::CreateRectRgn(0, 0, 0, 0);
            ::SelectClipRgn(Message.DrawItemStruct->hDC, Rgn);
            ::DeleteObject(Rgn);
 
            Message.Result = 1;
            Comctrls::TPageControl::Dispatch(&Message);
        }
 
        BEGIN_MESSAGE_MAP
            MESSAGE_HANDLER(CN_DRAWITEM, TWMDrawItem, MyDrawItem)
        END_MESSAGE_MAP(Comctrls::TPageControl);
    };
}
#define TPageControl Colored_TabSheet::TPageControl