Как в поток передать разные функции?

//unit1.cpp
#include "Unit2.h"
 
void m1()
{
    Form1->Label1->Caption = IntToStr(z);
}
 
void m2()
{
    Form1->Label1->Caption = IntToStr(g);
}
 
TMyThread* Thr =  new TMyThread(true);
 
Thr->Execute(m2 или m1)
 
//unit2.h
class TMyThread : public TThread
{
private:
 
protected:
 
public:
    void __fastcall Execute();
    __fastcall TMyThread(bool CreateSuspended);
};
 
 
 
//unit2.cpp
__fastcall TMyThread::TMyThread(bool CreateSuspended)
    : TThread(CreateSuspended)
{
}
 
//---------------------------------------------------------------------------
 
void __fastcall TMyThread::Execute(как мне передавать сюда функции m1 или m2) //возможно ли это
{
    FreeOnTerminate = true;
 
        выполнить m1(i) или  m2(i);
}
 
ну вроде как универсальный поток или подскажите куда копать спасибо

void m1()
{
  for(int i =0;i<10000;i++)
    Form1->Label1->Caption = IntToStr(i);
}
 
void m1()
{
  for(int i =0;i<20000;i++)
    Form1->Label1->Caption = IntToStr(i);
}

__fastcall TMyThread(TMyFunc* _pMyFunc, bool CreateSuspended)
{
  pMyFunc = _pMyFunc; // сохраняем в свойстве потока
}

void __fastcall TMyThread::Execute( ничего не передаём, как обычно ) 
{
  FreeOnTerminate = true;
  (*pMyFunc)();
}