Изменить цвет надписи на заблокированной TBitButton

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
Form1->Color = RGB (245, 51, 164);//Цвет формы
}
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
BitBtn1->Font->Color = RGB (0, 255, 0);//Шрифт не блокированной кнопки
ShellExecute(0, L"open", L"cmd.exe", 0, 0, SW_SHOWNORMAL);
BitBtn1->Enabled = false;
BitBtn1->Font->Color = RGB (255, 0, 0);//Шрифт блокированной кнопки
}

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Buttons.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TBitBtn *BitBtn1;
    void __fastcall BitBtn1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Buttons.hpp>
//---------------------------------------------------------------------------
#define MyMessage WM_USER
 
namespace TextColorBitBtn
{
    class TBitBtn : public Buttons::TBitBtn
        {
        private:
            TLabel *Label;
            TColor ADisabledTColor;
        protected:
            MESSAGE void __fastcall WMEnable( TWMEnable& message )
                {
                if( message.Enabled )
                    {
                    this->Caption = this->Label->Caption;
                    this->Label->Caption = "";
                    }
                else
                    {
                    this->Label->Caption = this->Caption;
                    this->Caption = "";
                    }
                this->Label->Visible = !message.Enabled;
 
                SendMessage( this->Handle, WM_SIZE, 0, MAKEWPARAM( this->Width, this->Height ) );
                }
            MESSAGE void __fastcall WMSize( TWMSize& message )
                {
                this->Label->Top  = message.Height/2
                                    - this->Label->Canvas->TextHeight( Label->Caption )/2;
                this->Label->Left = message.Width/2
                                    - this->Label->Canvas->TextWidth( Label->Caption )/2;
                }
        public:
        __fastcall virtual TBitBtn( TComponent* AOwner )
            : Buttons::TBitBtn( AOwner ),
              ADisabledTColor( static_cast<TPanel*>( AOwner )->Font->Color )
            {
            this->Label = new TLabel( this );
            this->Label->Parent = this;
            this->Label->Font->Color = ADisabledTColor;
            };
 
        __property TColor DisabledTextColor = { read = ADisabledTColor, write = DisabledTColor };
        void __fastcall DisabledTColor( TColor newColor )
            {
            ADisabledTColor = newColor;
            this->Label->Font->Color = ADisabledTColor;
            }
 
 
        BEGIN_MESSAGE_MAP
            MESSAGE_HANDLER( WM_SIZE, TWMSize , WMSize );
            MESSAGE_HANDLER( WM_ENABLE, TWMEnable , WMEnable );
        END_MESSAGE_MAP( Buttons::TBitBtn );
        };
}
#define TBitBtn TextColorBitBtn::TBitBtn
 
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TBitBtn *BitBtn1;
    TButton *BEnableBitBtn;
    TButton *BDisableBitBtn;
    void __fastcall BDisableBitBtnClick(TObject *Sender);
    void __fastcall BEnableBitBtnClick(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
void __fastcall TForm1::BDisableBitBtnClick(TObject *Sender)
{
BitBtn1->DisabledTextColor = rand() % 32768; //clRed;
BitBtn1->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BEnableBitBtnClick(TObject *Sender)
{
BitBtn1->Enabled = true;
}
//---------------------------------------------------------------------------