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

class SaveThread : public TThread
{
private:
        void __fastcall Body();
        HANDLE hThreadDoneEvent;
protected:
        void __fastcall Execute();
public:
        __fastcall SaveThread( bool CreateSuspended, HANDLE hThreadDoneEvent = NULL );
 
        void __fastcall Reloop();
};

__fastcall SaveThread::SaveThread( bool CreateSuspended, HANDLE hThreadDoneEvent_ )
        : TThread(CreateSuspended),
          hThreadDoneEvent( hThreadDoneEvent_ )
{
this->FreeOnTerminate = true;
}
//---------------------------------------------------------------------------
void __fastcall SaveThread::Execute()
{
  while( !this->Terminated )
    {
    WaitForSingleObject( hThreadDoneEvent, INFINITE );
 
    Body();
 
    ResetEvent( hThreadDoneEvent );
    }
}
//---------------------------------------------------------------------------
void __fastcall SaveThread::Body()
{
//
}
//---------------------------------------------------------------------------
void __fastcall SaveThread::Reloop()
{
if( this->Suspended )
  this->Resume();
 
SetEvent( hThreadDoneEvent );
}

void __fastcall TForm1::BCreateClick(TObject *Sender)
{
hThreadDoneEvent = CreateEvent( NULL, TRUE, FALSE, NULL );
sThread = new SaveThread( false, this->hThreadDoneEvent );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BRunOnceClick(TObject *Sender)
{
sThread->Reloop();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BKillClick(TObject *Sender)
{
sThread->Terminate();
 
CloseHandle( hThreadDoneEvent );
}