TPageControl изменение цвета

private:    // User declarations
    // Добавляем в класс
    void __fastcall (__closure *OldWndProc) (Messages::TMessage &Message);
    RECT Rect;
    void __fastcall SheetWndProc(Messages::TMessage &Message);
 
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};

// дописываем реализацию новой оконной функции:
void __fastcall TForm1::SheetWndProc(Messages::TMessage &Message)
{
    switch (Message.Msg)
    {
        case WM_ERASEBKGND:
        {
            Brush->Color = clBtnFace;
            FillRect((HDC)Message.WParam, &Rect, Brush->Handle);
            Message.Result = 1;
            return; // Больше ничего делать не надо, выходим
        }
    }
    OldWndProc(Message); // Вызываем стандартную оконную функцию
}
 
// И назначаем эту функцию контролу при создании формы:
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    ::GetClientRect(TabSheet1->Handle, &Rect);
    OldWndProc = TabSheet1->WindowProc;
    TabSheet1->WindowProc = SheetWndProc;
}
 
// При разрушении формы, соответственно, чистим за собой
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    TabSheet1->WindowProc = OldWndProc;
}