Разный caption на кнопке и в меню

Button1->Caption = (MenuItem1->Items[1]->Caption).UpperCase();

void __fastcall TForm1::N1Click(TObject *Sender)
{
   Capt = ((TMenuItem *)Sender)->Caption;
   ((TMenuItem *)Sender)->Checked = true;
   X = ((TMenuItem *)Sender)->Tag;
   Button1->Caption = (TMenuItem->Items[1]->Caption).UpperCase();
   Button1->Enabled = true;
}

class TForm1 : public TForm
{
__published: // IDE-managed Components
    TMainMenu *menu;
    TActionList *actlst_1;
    TAction *act_1;
    TAction *act_2;
    TAction *act_3;
    TButton *btn_1;
    TButton *btn_2;
    TButton *btn_3;
    TMenuItem *mnu;
    TMenuItem *mni_1;
    TMenuItem *mni_2;
    TMenuItem *mni_3;
    TButton *btn_make_captions;
    void __fastcall act_1Execute(TObject *Sender);
    void __fastcall btn_make_captionsClick(TObject *Sender);
 
public: // User declarations
    
 
    __fastcall TForm1( TComponent * Owner );
 
    __fastcall ~TForm1( )
    {
    }
 
} ;

__fastcall TForm1::TForm1( TComponent * Owner ) :
    TForm( Owner )
{
    mni_1->Tag = reinterpret_cast < int > ( btn_1 );
    mni_2->Tag = reinterpret_cast < int > ( btn_2 );
    mni_3->Tag = reinterpret_cast < int > ( btn_3 );
}
 
// ---------------------------------------------------------------------------
 
void __fastcall TForm1::act_1Execute( TObject * Sender )
{
    ShowMessage( reinterpret_cast < TAction * > ( Sender )->Caption );
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::btn_make_captionsClick( TObject * Sender )
{
    TButton * btn;
    TMenuItem * mni;
    for ( int i( 0 ), i_limit( mnu->Count ); i < i_limit; ++i )
    {
        mni = mnu->Items[ i ];
        btn = reinterpret_cast < TButton * > ( mni->Tag );
        btn->Action = mni->Action;
        btn->Caption = mni->Caption.UpperCase( );
    }
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
Button1->Caption = (TMenuItem->Items[1]->Caption).UpperCase();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Menus.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TMainMenu *MainMenu1;
    TMenuItem *menu;
    TMenuItem *N1;
    TMenuItem *N2;
    TButton *Button1;
    void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Button1->Caption = (TMenuItem->Items[1]->Caption).UpperCase();

void __fastcall TForm1::N1Click(TObject *Sender)
{
   Capt = ((TMenuItem *)Sender)->Caption;
   ((TMenuItem *)Sender)->Checked = true;
   X = ((TMenuItem *)Sender)->Tag;
   Button1->Caption = (N1->Items[1]->Caption).UpperCase();
   Button1->Enabled = true;
}