Разница между TThread::WaitFor и WaitForSingleObject

//Main.cpp
 
HANDLE hMyThread = NULL;
TThread* MyThread = NULL;
 
bool Check_hMyThread(HANDLE hThread)
{
    DWORD lpExitCode;
    if (GetExitCodeThread(hThread, &lpExitCode))
    {
        if (lpExitCode == STILL_ACTIVE)
        {
          return true;
        }
    }
    return false;
}
 
 
void __fastcall TForm2::Button1Click(TObject *Sender)
{
   MyThread = new Test(true);
   MyThread->FreeOnTerminate = false;
   MyThread->Priority = tpNormal;
 
   DuplicateHandle
   (
    GetCurrentProcess(),
    (HANDLE)MyThread->Handle,
    GetCurrentProcess(),
    &hMyThread,
    0,
    FALSE,
    DUPLICATE_SAME_ACCESS
   );
 
   MyThread->Resume();
 
}
 
void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
    if (Check_hMyThread(hMyThread))
    {
       MyThread->Terminate();
       WaitForSingleObject(hMyThread, INFINITE); //MyThread->WaitFor(); или WaitForSingleObject(hMyThread, INFINITE);
       delete MyThread;
    }
}

//Thread.cpp
 
void __fastcall Test::Execute()
{
    while (!this->Terminated)
    {
       Sleep(7000);
       Synchronize(&UpdateCaption);
    }
 
}
 
void __fastcall Test::UpdateCaption()
{
    Form2->Caption = "Updated in a thread";
}

FreeOnTerminate=true

void __fastcall OnTerminate(TThread** obj)
{
  delete *obj;
  *obj = NULL;
}
 
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
 TThread* t = new Thread(true);
 t->FreeOnTerminate = false;
 //....
 OnTerminate(&t);
}