Создать окно (форму) с отображением текущего времени без использования таймера

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
class TMyThr:public TThread
{
public:
__fastcall TMyThr(bool CS):TThread(CS){}
virtual void __fastcall Execute()
        {
        TDateTime d;
        while(1)
                {
                d=Now();
                Form1->Label1->Caption=d.TimeString();
                Sleep(1000);
                }
        }
};
TMyThr*clock;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
clock=new TMyThr(false);
}
//---------------------------------------------------------------------------
 
//Стоп
void __fastcall TForm1::Button1Click(TObject *Sender)
{
clock->Suspend();
}
//---------------------------------------------------------------------------
//продолжить отсчет
void __fastcall TForm1::Button2Click(TObject *Sender)
{
clock->Resume();
}
//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Application->OnIdle=AppIdle;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::AppIdle(System::TObject* Sender, bool &Done)
{
TDateTime d;
d=Now();
Label1->Caption=d.TimeString();
Done=false;
}