Изменить цвет надписи на заблокированной 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

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
  if(BitBtn2->Font->Color == clRed) return;
  else
   {
     //Тут весь код обработчика
     ShowMessage("Я работаю");
   }
}

BitBtn2->Font->Color = clRed

BitBtn2->Font->Color = clGreen

#include <Vcl.Buttons.hpp>
#include <Vcl.ExtCtrls.hpp>
enum LockMode {lmLock, lmUnlock}; // <<== Вот это добавить
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TBitBtn *BitBtn1;
    TBitBtn *BitBtn2;
    TPanel *Panel1;
    TBitBtn *BitBtn3;
    void __fastcall BitBtn1Click(TObject *Sender);
    void __fastcall BitBtn2Click(TObject *Sender);
private:    // User declarations
    void __fastcall Locker(TPanel *P, TBitBtn *B, int Mode); //<<== Вот это добавить
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);

void __fastcall TForm1::Locker(TPanel *P, TBitBtn *B, int Mode)
{
  switch(Mode)
   {
     case 0 : P->Enabled = false;
        B->Font->Color = clRed;
        break;
     case 1 : P->Enabled = true;
        B->Font->Color = clGreen;
        break;
   }
}

Locker(Panel1, BitBtn3, lmLock);

Locker(Panel1, BitBtn3, lmUnlock);

#include <vcl.h>
#include "Launcher.h"
#pragma hdrstop
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
int MENU;
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
void __fastcall TForm1::N2Click(TObject *Sender)
{
  ((TMenuItem *)Sender)->Checked = true;
   MENU = ((TMenuItem *)Sender)->Tag;
   BitBtn1->Caption = ((TMenuItem *)Sender)->Caption;
   BitBtn1->Enabled = true;
}
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
  switch(MENU)
   {
     case 1: ShellExecute(0,"open","cmd.exe",0,SW_SHOW);
     break;
     case 2: ShellExecute(0,"open","cmd.exe",0,SW_SHOW);
     break;
   }
}

//---------------------------------------------------------------------------
 
#ifndef LauncherH
#define LauncherH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Menus.hpp>
#include <Vcl.Buttons.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TMainMenu *MainMenu1;
    TMenuItem *N1;
    TMenuItem *N2;
    TMenuItem *N3;
    TBitBtn *BitBtn1;
    void __fastcall N2Click(TObject *Sender);
    void __fastcall N5Click(TObject *Sender);
    void __fastcall BitBtn1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

BitBtn1->Font->Color = RGB (0, 255, 0);//Шрифт не блокированной кнопки
BitBtn1->Font->Color = RGB (255, 0, 0);//Шрифт блокированной кнопки