Выйти из приложения внутри потока

class TMyThread : public TThread
{                                       
private:
      // Private declarations
protected:
      void __fastcall Execute();
public:
    __fastcall TMyThread( bool _suspended )
                   : TThread( _suspended ) {};
 
};

    TMyThread *MyThread = new TMyThread(true);
    MyThread->FreeOnTerminate = true;
    MyThread->Priority = tpLower; // Приоритет низкий
    MyThread->Resume(); // Запускаем поток

void __fastcall TMyThread::Execute()      
{   
   while (1)
   {
    Sleep(500);
        if (условие, которое точно выполняется)
        {  
                ShowMessage("MyError");
               Application->Terminate();  
        }
   }
}

  if (условие, которое точно выполняется)
        {  
                ShowMessage("MyError");
                this->Terminate();  
                break;
        }

Application->Terminate();

//-------------------------------------------------------------------------------------------------
#ifndef UnitThreadH
#define UnitThreadH
//-------------------------------------------------------------------------------------------------
#include <Classes.hpp>
//-------------------------------------------------------------------------------------------------
#include <vcl>
#pragma hdrstop
#pragma package(smart_init)
//-------------------------------------------------------------------------------------------------
class ThreadWorkSample : public TThread
{
private:
             short  NumRead;
   void __fastcall  NumWrite(short X);
   void __fastcall  Result();
protected:
   void __fastcall  Execute();
public:
   ThreadWorkSample(bool CreateSuspended);
   __property short Number = {read = NumRead, write = NumWrite};
};
//-------------------------------------------------------------------------------------------------
#endif

//-------------------------------------------------------------------------------------------------
#include "UnitMain.h"
#include "UnitThread.h"
//-------------------------------------------------------------------------------------------------
ThreadWorkSample::ThreadWorkSample(bool CreateSuspended) : TThread(CreateSuspended)
{
   Number = 0;
}
void __fastcall ThreadWorkSample::Execute()
{
   do { Synchronize(Result); }  while (!Terminated);
}
void __fastcall ThreadWorkSample::NumWrite(short X)
{
   NumRead = X;
}
void __fastcall ThreadWorkSample::Result()
{
   switch (Number)  {
      case 1:
         // ...
         break;
      case 2:
         // ...
         break;
   }
   Sleep(100);
   Application->ProcessMessages();
}

Application->ProcessMessages();

void __fastcall TMyThread::Execute()      
{   
   while (1)
   {
    Sleep(500);
        if (условие, которое точно выполняется)
        {  
                ShowMessage("MyError");
               Application->Terminate();  
               Application->ProcessMessages();
        }
   }
}

Application->ProcessMessages();

Application->ProcessMessages();