Правильно завершить поток

#include <vcl.h>
#pragma hdrstop
 
#include "UTime1.h"
#include "UTime2.h"
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
MyTime *Thread;
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BBeginClick(TObject *Sender)
{
Thread = new MyTime(false);
Thread->FreeOnTerminate = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BRespClick(TObject *Sender)
{
  Thread->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  Thread->Terminate();
}
//---------------------------------------------------------------------------

#include <windows.h>   // чтобы не было проблем с неймспейсами
#include <wininet.h>   // интернет функции WinAPI
#include <vcl.h>
#pragma hdrstop
#include "UTime1.h"
#include "UTime2.h"
#pragma package(smart_init)
#pragma link "wininet.lib"   // линкуем библу
extern MyTime *Thread;
//---------------------------------------------------------------------------
 
 
__fastcall MyTime::MyTime(bool CreateSuspended)
    : TThread(CreateSuspended)
{
 
oldstate = true;
}
//---------------------------------------------------------------------------
void __fastcall MyTime::Execute()
{
    DWORD flags;
    while(!Terminated) {
        bool state = InternetGetConnectedState(&flags, 0);
        if(state != oldstate) {
            if(state) ShowMessage("Сетевой кабель подключён");
            else ShowMessage("Сетевой кабель отключен");
            oldstate = state;
        }
        Sleep(100);
    }
}
//---------------------------------------------------------------------------

MyTime *Thread;

void __fastcall TForm1::BBeginClick(TObject *Sender)
{
Thread = new MyTime(false);
Thread->FreeOnTerminate = false;
}

ShowMessage("Сетевой кабель подключён");