Отображения на форме текстового сообщения с информацией о ходе расчета в отдельном потоке

class TMyThread: public TThread
{
    protected:
        void __fastcall Execute();
 
    private:
        void __fastcall NewCaption();
        UnicodeString CurrentAction;
};
 
void __fastcall TMyThread::Execute()
{
    int it = -1;
    do
    {
        it++;
        CurrentAction = "Итерация " + IntToStr(it+1) + "...";
        Synchronize(NewCaption);
    }
    while (it < 100000);
}
 
void __fastcall TMyThread::NewCaption()
{
    Form1->Label1->Caption = CurrentAction;
}

void __fastcall TMyThread::NewCaption()
{
    Form1->Label1->Caption = CurrentAction;
    Application->ProcessMessages();
}

MyThread->Start();

__fastcall TMyThread::TMyThread(bool CreateSuspended) : TThread(CreateSuspended)
{
    FreeOnTerminate = false;
    FSuspended = true; // публичное поле bool FSuspended в классе потока
}
 
// ---------------------------------------------------------------------------
void __fastcall TMyThread::Execute()
{
    do
    {
        if (!FSuspended)
        {
            FSuspended = true; // Переводим в состояние "ожидания"
            DoCalculate();  // Отработал один цикл, и снова жди
        }
        else Sleep(1); // Чтобы ресурсы не жрал...
    }
    while (!Terminated);
}
 
// ---------------------------------------------------------------------------
void __fastcall TMyThread::NewCaption()
{
    Form1->Label1->Caption = Msg;
}
 
void __fastcall TMyThread::DoCalculate()
{
    int i = 0;
    do
    {
        i++;
        Msg = L"Итерация " + IntToStr(i) + L"...";
        Synchronize(NewCaption);
    }
    while (i < 10000);
}

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    MyThread = new TMyThread(false);
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    // MyThread->Calculate();
    MyThread->FSuspended = false; // "разморозил" поток, он отработал один цикл и снова "уснул"
}

   do
    {
        if (!FSuspended)
        {
            FSuspended = true; // Переводим в состояние "ожидания"
            DoCalculate();  // Отработал один цикл, и снова жди
        }
        else Sleep(1); // Чтобы ресурсы не жрал...
    }
    while (!Terminated);

void __fastcall TSaveFileThread::Execute()
{
  while( !this->Terminated )
    {
    ResetEvent( hThreadDoneEvent );
    /*Полезный код*/
    SetEvent( hThreadDoneEvent );
    this->Suspend();
    }
}