Работа с 2-мя потоками

#include <vcl.h>
#pragma hdrstop
 
#include "UTime1.h"
#include "UTime2.h"
#include "UTime3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
MyTime *Thread;
TResult *Result;
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BBeginClick(TObject *Sender)
{
Thread = new MyTime(false);
Result = new TResult(false);
Thread->FreeOnTerminate = true;
BBegin->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BRespClick(TObject *Sender)
{
Thread->Terminate();
}
//---------------------------------------------------------------------------

#ifndef UTime1H
#define UTime1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TLabel *Label1;
    TButton *BBegin;
    TButton *BResp;
    void __fastcall BBeginClick(TObject *Sender);
    void __fastcall BRespClick(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

#include <vcl.h>
#pragma hdrstop
#include "UTime1.h"
#include "UTime2.h"
#include "UTime3.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
 
//   Important: Methods and properties of objects in VCL can only be
//   used in a method called using Synchronize, for example:
//
//      Synchronize(&UpdateCaption);
//
//   where UpdateCaption could look like:
//
//      void __fastcall MyTime::UpdateCaption()
//      {
//        Form1->Caption = "Updated in a thread";
//      }
//---------------------------------------------------------------------------
 
__fastcall MyTime::MyTime(bool CreateSuspended)
    : TThread(CreateSuspended)
{
TMax = EncodeTime(0,0,10,0);
}
//---------------------------------------------------------------------------
void __fastcall MyTime::Execute()
{
    T0 = Now();
    do
      Synchronize(NewCaption);
    while(!Terminated && ((double)(TMax - (Now()-T0))>=0));
    Synchronize(Result);
}
//---------------------------------------------------------------------------
 void _fastcall MyTime::NewCaption()
 {
     Form1->Label1->Caption = TimeToStr(TMax-(Now()-T0));
 }
 void _fastcall MyTime::Result()
 {
     if(Terminated)
     {
       ShowMessage("Ответ получен своевременно");
       ReturnValue = 0;
 
     }
     else
     {
       ShowMessage("Время на ответ исчерпано");
       ReturnValue = 1;
     }
     Form1->BBegin->Enabled = true;
 }

#ifndef UTime2H
#define UTime2H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
//---------------------------------------------------------------------------
class MyTime : public TThread
{
private:
    void _fastcall NewCaption();
    void _fastcall Result();
protected:
    void __fastcall Execute();
public:
    __fastcall MyTime(bool CreateSuspended);
    TDateTime T0, TMax;
};
//---------------------------------------------------------------------------
#endif

#include <vcl.h>
#pragma hdrstop
#include "UTime1.h"
#include "UTime2.h"
#include "UTime3.h"
#pragma package(smart_init)
extern MyTime *Thread;
//---------------------------------------------------------------------------
 
//   Important: Methods and properties of objects in VCL can only be
//   used in a method called using Synchronize, for example:
//
//      Synchronize(&UpdateCaption);
//
//   where UpdateCaption could look like:
//
//      void __fastcall TResult::UpdateCaption()
//      {
//        Form1->Caption = "Updated in a thread";
//      }
//---------------------------------------------------------------------------
 
__fastcall TResult::TResult(bool CreateSuspended)
    : TThread(CreateSuspended)
{
}
//---------------------------------------------------------------------------
void __fastcall TResult::Execute()
{
    
    Res = Thread->WaitFor();
    Synchronize(Result2);
    delete Thread;
   //   Thread = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TResult::Result2()
{
    if(Res == 0)
    {
        ShowMessage("Вы успешно прошли тестирование");
    }
    else
    {
        ShowMessage("Вы не прошли тестирование");
    }
}

#ifndef UTime3H
#define UTime3H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
//---------------------------------------------------------------------------
class TResult : public TThread
{
private:
  void __fastcall TResult::Result2();
  int Res;
protected:
    void __fastcall Execute();
public:
    __fastcall TResult(bool CreateSuspended);
};
//---------------------------------------------------------------------------
#endif

Res = Thread->WaitFor();