🚀 go-pugleaf

I've developed an application that must process few function every 1-5
seconds, unfortunately when I run the application it is very slow and
dramatically use a lot of the system resources, so I thought of making a
thread that can handle this time based operation in my application as the
code below shows, but still the application is very slow and it uses a lot
of the system resources...can anyone give me any idea on how to speed up the
process...optimize my thread....and is my code correct or I am missing
anything...???  thanks all for your help

void __fastcall TIMConnection::Execute()
{
    while(Terminated==false)
    {
        Synchronize(RUNME1);
        Close();
    }
}
//--------------------------------------------------------------------------
-
void __fastcall TIMConnection::Close()
{   // Suspend the thread
     Suspend();
}
//--------------------------------------------------------------------------
-
void __fastcall TIMConnection::RUNME(void)
{
    Mytimer = new TTimer(NULL);
    Mytimer->Interval = 5000;
    Mytimer->Enabled = true;
    Mytimer->OnTimer=MytimerTimer;
}
//--------------------------------------------------------------------------
-
void __fastcall TIMConnection::MytimerTimer(TObject *Sender)
{
   //Call my list of functions
   ...
   ...
   ...
   ...
   ...
   ...

}
//--------------------------------------------------------------------------
-

//--------------------------------------------------------------------------
-
//--------------------------------------------------------------------------
-
in thread header
//--------------------------------------------------------------------------
-
//--------------------------------------------------------------------------
-
//--------------------------------------------------------------------------
-

class TIMConnection : public TThread
{
private:

        TTimer *Mytimer;
        void __fastcall MytimerTimer(TObject *Sender);




//--------------------------------------------------------------------------
-
Calling the thread code
//--------------------------------------------------------------------------
-
//--------------------------------------------------------------------------
-
//--------------------------------------------------------------------------
-
void __fastcall TMainScreen::Button2Click(TObject *Sender)
{
    TIMConnection* MySampleThread = new TIMConnection();
      MySampleThread->Resume();
}