Работа с потоком в C++Builder

//---------------------------------------------------------------------------
 
#include <System.hpp>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit18.h"
#include "stdio.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 MyThread::UpdateCaption()
//      {
//        Form1->Caption = "Updated in a thread";
//      }
//---------------------------------------------------------------------------
 
__fastcall MyThread::MyThread(bool CreateSuspended)
    : TThread(CreateSuspended)
{
}
//---------------------------------------------------------------------------
void __fastcall MyThread::Execute()
{
    FILE *FileOut;
    char *NameFile;
    AnsiString StrFile;
 
    StrFile = Form1->Edit1 -> Text;
    NameFile = new char [StrFile.Length() + 1];
    strcpy(NameFile, StrFile.c_str());
    FileOut = fopen(NameFile, "w");
 
    for (j[0] = 0; j[0] < N[0]; j[0]++)
    {
        if (PassLen == 1)
        {
            if (Form1 -> CheckBox1 -> Checked) fprintf(FileOut, "%c\n", Alphabet[0][j[0]]);
            Form1 -> ProgressBar1 -> Position++;
            continue;
        }
        for (j[1] = 0; j[1] < N[1]; j[1]++)
        {
            if (PassLen == 2)
            {
                if (Form1 -> CheckBox1 -> Checked) fprintf(FileOut, "%c%c\n", Alphabet[0][j[0]],\
                Alphabet[1][j[1]]);
                Form1 -> ProgressBar1 -> Position++;
                continue;
            }
......  Еще много циклов for.....
ShowMessage("Расчёт завершен!");
Form1 -> Enabled = true;
fclose(FileOut);

for (j[0] = 0; j[0] < N[0]; j[0]++)
{
if (PassLen == 1)
{
if (Form1 -> CheckBox1 -> Checked) fprintf(FileOut, "%c\n", Alphabet[0][j[0]]);
Form1 -> ProgressBar1 -> Position++;
continue;
}

void __fastcall MyThread::Execute()
{
  Посчитать_всю_хрень_и_сложить_ее_в_соответствующие_переменные_внутри_потока(); // Первая функция
  Synchronize( Поменять_что-то_там_на_форме_на_рассчитанные_значение ); // Вторая функция под синхронизацией
}

void __fastcall MyThread::Execute()
{
    FreeOnTerminate = true;
 
    int j[15];
 
    FILE *FileOut;
    char *NameFile;
    AnsiString StrFile;
 
    StrFile = Form1 -> Edit1 -> Text;
    NameFile = new char [StrFile.Length() + 1];
    strcpy(NameFile, StrFile.c_str());
    FileOut = fopen(NameFile, "w");
 
    for (j[0] = 0; j[0] < N[0]; j[0]++)
    {
        if (PassLen == 1)
        {
            if (Flag[0]) fprintf(FileOut, "%c\n", Alphabet[0][j[0]]);
            Synchronize(PrBar);
            continue;
        }
        for (j[1] = 0; j[1] < N[1]; j[1]++)
        {
            if (PassLen == 2)
            {
                if (Flag[0]) fprintf(FileOut, "%c%c\n", Alphabet[0][j[0]],\
                Alphabet[1][j[1]]);
                Synchronize(PrBar);
                continue;
            }
            for (j[2] = 0; j[2] < N[2]; j[2]++)
            {
                if (PassLen == 3)
                {
                    if (Flag[0]) fprintf(FileOut, "%c%c%c\n", Alphabet[0][j[0]],\
                    Alphabet[1][j[1]], Alphabet[2][j[2]]);
                    Synchronize(PrBar);
                    continue;
                }
 
                       .........
    
        ShowMessage("Расчёт завершен!");
    fclose(FileOut);
}
//---------------------------------------------------------------------------
 
void __fastcall MyThread::PrBar()
{
    Form1 -> ProgressBar1 -> Position++;
}