Таймер времени через поток занимает 25 % ресурсов процессора

class timer : public TThread
{
private:
void inline __fastcall Vivod();
protected:
    void __fastcall Execute();
public:
    __fastcall timer(bool CreateSuspended);
};

int Seconds, Hours, Minutes;
//---------------------------------------------------------------------------
__fastcall timer::timer(bool CreateSuspended)
    : TThread(CreateSuspended)
{
}
//---------------------------------------------------------------------------
void __fastcall timer::Execute()
{
int time;
    //---- Place thread code here ----
    for (;;)
    {
     int time=GetTickCount();
     while (GetTickCount()-time<1000)
     {
        Application->ProcessMessages();
         }
         Seconds++;
         if (Seconds==60) {
             Minutes++;
             Seconds=0;
             Synchronize(&Vivod);
         }
         if (Minutes==60) {
             Minutes=0;
             Hours++;
             Synchronize(&Vivod);
         }
         Synchronize(&Vivod);
    }
}
void inline __fastcall timer::Vivod()
{
  Form->Labeltimer->Caption="Таймер: " +IntToStr(Hours)+":"+IntToStr(Minutes)+":"+IntToStr(Seconds)+" (чч:мм:cc)";
}

timer *FirstTimer= new timer(false);

#ifndef Unit2H
#define Unit2H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.ExtCtrls.hpp>
//---------------------------------------------------------------------------
class Timer : public TThread
{
private:
    TTimer *Timer1;
    void __fastcall Timer1Timer(TObject *Sender);
    bool on;
protected:
    void __fastcall Execute();
public:
    __fastcall Timer(bool CreateSuspended);
};
//---------------------------------------------------------------------------
#endif

#include <System.hpp>
#pragma hdrstop
 
#include "Unit2.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
 
//   Important: Methods and properties of objects in VCL can only be
//   used in a method called using Synchronize, for example:
//
//      Synchronize(&UpdateCaption);
//
//   where UpdateCaption could look like:
//
//      void __fastcall Timer::UpdateCaption()
//      {
//        Form1->Caption = "Updated in a thread";
//      }
//---------------------------------------------------------------------------
 
__fastcall Timer::Timer(bool CreateSuspended)
    : TThread(CreateSuspended)
{
 Timer1 = new TTimer(NULL);
 Timer1->Interval = 1000;
 Timer1->OnTimer = Timer1Timer;
 on = 0;
 Timer1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall Timer::Execute()
{
  MSG  msg;
  while(GetMessage(&msg,NULL,0,0))
  {
    if(on == 1)
     {
      on = 0;
         //посылаешь своим Synchronize(&Vivod);
     }
  }
}
//---------------------------------------------------------------------------
void __fastcall Timer::Timer1Timer(TObject *Sender)
{
 on = 1;
}

for (;;)
    {
     int time=GetTickCount();
     while (GetTickCount()-time<1000)
     {
        Application->ProcessMessages();
         }

void __fastcall Timer::Execute()
{
  t= GetTickCount();
  while(!Terminated)
  {
      Sleep(1000); // ждем приблизительно секунду, потом обновляем вывод на экран.
      Synchronize(&UpdateTime);
  }
}