Динамическое создание TTimer

TTimer *MyTimer = new TTimer(NULL);

MyTimer->OnTimer = OnTimeOut;

class AAA : public TObject{ // Класс наследник от TObject
    private:
    public:
    void __fastcall Timer1Timer(TObject *Sender);
    void MakeTimer();
    TTimer * Timer1; // Глобальный таймер
};
//-----------------------------------------------------------------------
void __fastcall AAA::Timer1Timer(TObject *Sender)
{
    ShowMessage("ok");
}
//-----------------------------------------------------------------------
void AAA::MakeTimer(){
    Timer1 = new TTimer(NULL);
    Timer1->OnTimer = AAA::Timer1Timer;
    Timer1->Interval = 1000;
    Timer1->Enabled = FALSE;
}
//-----------------------------------------------------------------------
 
 
Запуск таймера:
    AAA * ttt = new AAA;
    ttt->MakeTimer();  // создаем таймер
    ttt->Timer1->Enabled = TRUE; // Запускаем

//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    void __fastcall FormDestroy(TObject *Sender);
    void __fastcall FormCreate(TObject *Sender);
private:    // User declarations
public:     // User declarations
   void __fastcall TimerMyTimer(TObject *Sender); //   <-- !!!
 
    __fastcall TForm1(TComponent* Owner);
};

TForm1 *Form1;
TTimer *myTimer;
void __fastcall TForm1::TimerMyTimer(TObject *Sender)
{
Beep(1000,200); // Действие
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
myTimer= new TTimer(this);
myTimer->OnTimer = & TimerMyTimer;  
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
delete myTimer;
}