Периодический вызов метода

Timer->Interval = 1000; // 1 sec
Timer->Enabled = true;
ShowMessage("lalala"); // можно в цикле
Timer->Interval = 2000; // 1 sec
ShowMessage("blablabla"); // можно в цикле
Timer->Enabled = false;
ShowMessage("перекур");
Timer->Interval = 3000;
Timer->Enabled = true;
ShowMessage("lablabla"); // можно в цикле
Timer->Interval = 4000; // 1 sec
ShowMessage("a! bla!.."); // можно в цикле
Timer->Enabled = false;
ShowMessage("bla...");

timer = new TTimer(this); //нельзя указывать this, если this не потомок TObject
timer->OnTimer = &MyOnTimer;

      class TTest
      {
      public:
      void MyFunction();
      TTimer *Timer;
      void _fastcall OnTimer(TObject* Sender);
      void Pause();
      void Start();
      void SetInterval(int Interval);
      TTest()
      {
        Timer=new TTimer(Application);
        Timer->Enabled=false;
        Timer->Interval=3000;
        Timer->OnTimer=OnTimer;
      }
      ~TTest()
      {
      delete Timer;
      Timer=NULL;
      }
      };
 
       void _fastcall TTest::OnTimer(TObject* Sender)
       {
        MyFunction();
 
       }
 
        void TTest::MyFunction()
        {
        ShowMessage("Hello, my friend!");
        }
 
      void TTest::Pause()
      {
      Timer->Enabled=false;
      }
      void TTest::Start()
      {
      Timer->Enabled=true;
      }
      void TTest::SetInterval(int Interval)
      {
      Timer->Interval=Interval;
      }

TTest *t1=new TTest;
//---------------------------
t1->SetInterval(3000);  //Устанавливаем интервал
t1->Start(); //Запускаем

t1->Pause(); // Останавливаем