다른 분이 답을 잘 하셨기 때문에,  설명은 생략하고
MethodAddress 는 다음과 같이 사용하면 됩니다.

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   ShowMessage(this->Caption + " " + ((TButton*)Sender)->Caption);
}
//---------------------------------------------------------------------------
typedef void __fastcall (*TObjectEvent)(void *, System::TObject* Sender);

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    void *tt = MethodAddress("Button1Click");
    TObjectEvent BtnClick = (TObjectEvent)tt;
    if (BtnClick)
        BtnClick(this, Sender);
}
//---------------------------------------------------------------------------

void * 는 4바이트 포인트이고,
메소스 함수의 첫번째 파라메터가 객체 번지이므로 this 를 첫번째 파라메터로 명시 하여
호출해주면 멤버함수처럼 동작하게 됩니다.

원래 멤버함수는 this의 첫번째 파라메터가 숨겨져 있으므로,
위와 같은 경우는 명시하여 줌으로서 동일한 효과를 냅니다.

그럼.






장성호 님이 쓰신 글 :
: MethodAddress 함수 써보신분 계신가요?
:
: TObject의 MethodAddress  메소드는 반환값이  void* 입니다.
: VCL에 객체멤버함수의 포인터인 8Byte가 아니라
: win32시스템에 기본형인 4Byte짜리 void * 인것입니다.
:
: void *로 받아서 형변환해서 함수 호출하면
: 객체 내부에서 호출되는것이 아니라 이상하게 호출됩니다.
:
: 아래코드에서 Button2Click 과 Button3Click 을 하면 어떻게 나타날가요?
:
: Button2Click 하면 "Form2"가 ShowMessage되고
: Button3Click 하면 "Button3"가 ShowMessage됩니다. 이런 황당한...
:
: 단지 호출할때 Sender를  Form2와 Button3로 다르게 넘겨준것인데...
:
: 왜그런거죠?
: 1. 왜 Button1Click 함수내에서 Sender가 this가 되버린거죠?
: 2. 왜 MethodAddress 는 Published만 찾을수 있는거죠?  ( 그렇게 만들어 놓았기때문이라는 답변 말구요)
:    String으로 객체멤버함수를 찾을수는 없는건가요? 그렇다면 왜 그런지요?
:
: 누가 MethodAddress에 대해 좀 자세히 가르쳐 주세요
:
: FieldAddress 도 같은 원리인것 같은데 같이 설명좀...
:
:
: [MethodAddress 사용예]
:
: void __fastcall TForm2::Button1Click(TObject *Sender)
: {
:     ShowMessage(this->Caption);
: }
: //---------------------------------------------------------------------------
: typedef void __fastcall ( *TObjectEvent)(System::TObject* Sender);
: void __fastcall TForm2::Button2Click(TObject *Sender)
: {
:     TObjectEvent BtnClick;
:     void *tt=MethodAddress(this->ClassType(), "Button1Click"); //or  MethodAddress( "Button1Click");
:     BtnClick=(TObjectEvent)tt;
:     if(BtnClick)BtnClick(this);
: }
: //---------------------------------------------------------------------------
: void __fastcall TForm2::Button3Click(TObject *Sender)
: {
:     TObjectEvent BtnClick;
:     void *tt=MethodAddress(this->ClassType(), "Button1Click");// or  MethodAddress( "Button1Click");
:     BtnClick=(TObjectEvent)tt;
:
:     if(BtnClick)BtnClick(Sender);
: }
: //---------------------------------------------------------------------------
:
: 미리 감사드립니다.