Кнопка задает функцию другой кнопки

if (fl=1)
....
if (fl=2)
....

 void SomeFuction(){
 bla-bla-bal
 }
 void SomeFuction2(){
 bla-bla-bla
}
//А теперь
Button1OnClick(bla-bla)
{
Button3->OnClick=SomeFunction;
}
Button2OnClick(bla-bla)
{
Button3->OnClick=SomeFunction2;
}

{
Button3->OnClick=SomeFunction;
}

int flag=1;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
flag=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
flag=2;
}

#include "Unit1.h"
extern int flag; //это надо не в обработчике писать, а сразу после всех "инклуд" ;)
void __fastcall TForm2::Button1Click(TObject *Sender)
{
 if (flag==1)
 {
 ...
 }
 if (flag==2) //если функций только две, можно заменить на else
 {
 ...
 }
}

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TButton *Button2;
        TButton *Button3;
        TButton *Button1;
        void __fastcall Button1Click(TObject *Sender);
          void __fastcall Test1Click(TObject *Sender);   //Вот обьявляем новую функию
            void __fastcall Test2Click(TObject *Sender); //Вот обьявляем новую функию
        void __fastcall Button2Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Test1Click(TObject *Sender) //Описываем что делает функия
{
  ShowMessage("Test1"); //При запуске функции выводится сообщение "Test1"
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Test2Click(TObject *Sender) //Описываем что делает 2 функия
{
  ShowMessage("Test2");//При запуске функции выводится сообщение "Test2"
}
//---------------------------------------------------------------------------
 void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Form2->Button4->OnClick=Test1Click; //Здесь, я думаю, все понятно
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Form2->Button4->OnClick=Test2Click; //Здесь, я думаю, все понятно
}
//---------------------------------------------------------------------------