Привязывание к вычислению ProgressBar в отдельном потоке

#include "Unit1.h"
#include "kra.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 threada::UpdateCaption()
{       Form1->Button4->Caption="Done";
        Form1->ProgressBar3->Position=Form1->ha;
 }
//---------------------------------------------------------------------------
 
__fastcall threada::threada(bool CreateSuspended)
    : TThread(CreateSuspended)
{
}
//---------------------------------------------------------------------------
void threada::SetName()
{
    THREADNAME_INFO info;
    info.dwType = 0x1000;
    info.szName = "pot";
    info.dwThreadID = -1;
    info.dwFlags = 0;
 
    __try
    {
        RaiseException( 0x406D1388, 0, sizeof(info)/sizeof(DWORD),(DWORD*)&info );
    }
    __except (EXCEPTION_CONTINUE_EXECUTION)
    {
    }
}
//---------------------------------------------------------------------------
void __fastcall threada::Execute()
{
    FreeOnTerminate=true;
    int y;
    y=Form1->op;
    while(Form1->ha!=y)
    {
        Form1->ProgressBar3->Position=Form1->ha;
    }
    Synchronize(UpdateCaption);
}

threada * mythread= new threada(false);

void __fastcall threada::Execute()
{
    FreeOnTerminate=true;
    while (now!=max)
    {
        Form1->ProgressBar3->Position=now;
    }
    Synchronize(UpdateCaption);
}

while (now!=max)
    {
        Form1->ProgressBar3->Position=now;
    }