Параллельная работа двух дополнительных потоков

//Модуль формы .cpp
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
TThread* th[2];   //создаем массив указателей на базовый класс TThread
 
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner){}
 
void __fastcall TForm2::Button1Click(TObject *Sender)      // Запуск первого потока
{
  th[0] = new Thread1(true);
  th[0]->FreeOnTerminate=true;
  th[0]->Resume();
 
}
 
void __fastcall TForm2::Button2Click(TObject *Sender)    // Запуск второго потока
{
  th[1] = new Thread2(true);
  th[1]->FreeOnTerminate=true;
  th[1]->Resume();
}

//Объявление классов потоков .h
 
#ifndef Unit3H
#define Unit3H
 
#include <Classes.hpp>
#include "Unit2.h"
 
class Thread1 : public TThread
{
public:
    __fastcall Thread1(bool CreateSuspended):TO(Now()){}
     void __fastcall UpdateCaptA();
 
     static void __fastcall  UpdateCapt(TLabel* l, TDateTime TO)
     { l->Caption = TimeToStr(Now()-TO); }
 
protected:
    void __fastcall Execute();
 
private:
    TDateTime TO;
 
};
 
 
class Thread2 : public TThread
{
public:
    __fastcall Thread2(bool CreateSuspended):TO(Now()){}
    void __fastcall UpdateCaptA();
 
protected:
    void __fastcall Execute();
 
private:
    TDateTime TO;
};
 
#endif

//Реализация методов потоков .cpp
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit3.h"
#pragma package(smart_init)
 
void __fastcall Thread1::Execute()
{
  while (1)
 {
   /*
   код потока 1
   */
   Synchronize(UpdateCaptA);
   Sleep(900);
 }
}
 
void __fastcall Thread2::Execute()
{
 while (1)
 {
     /*
    код потока 2
   */
   Synchronize(UpdateCaptA);
   Sleep(900);
 }
}
 
void __fastcall Thread1::UpdateCaptA()
{
   UpdateCapt(Form2->Label1, TO);
}
 
void __fastcall Thread2::UpdateCaptA()
{
    Thread1::UpdateCapt(Form2->Label2, TO);
}