Поток, избавиться от подвисания главной формы

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Loading.h"
#include "main.h"
#pragma package(smart_init)
#pragma link "Excel_2K_SRVR"
//---------------------------------------------------------------------------
AnsiString ProgPath = ExtractFileDir(Application->ExeName);
struct Excel
{
    float Count;
    AnsiString Name;
    AnsiString Date;
};
Excel Excel[4000];
//---------------------------------------------------------------------------
__fastcall Loading::Loading(bool CreateSuspended)
    : TThread(CreateSuspended)
{
}
//---------------------------------------------------------------------------
void __fastcall Loading::Execute()
{
    Synchronize(&Complite);
    Terminate();
}
//---------------------------------------------------------------------------
void __fastcall Loading::Complite()
{
    Form1->N5->Caption = "Собираю информацию";
    AnalyseExcel(RecCount());
    Form1->N5->Caption = "Формирую файл";
    Formirate(RecCount());
    Form1->N5->Caption = "Ожидание";
    Form1->StatusBar1->Panels->Items[0]->Text = "Файл сформирован";
}
//---------------------------------------------------------------------------
int __fastcall Loading::RecCount()
{
    AnsiString Path = ProgPath + "//Files//Общий анализ.xls";
    Variant App,Sh;
    App=Variant::CreateObject("Excel.Application");
    Sh=App.OlePropertyGet("Workbooks").OlePropertyGet("Open",TVariant(Path)).OlePropertyGet("Worksheets", 1);
    int i;
    AnsiString String;
    for(i=8;i<4000;i++)
    {
        String = Sh.OlePropertyGet("Cells",i,6);
        if(String.IsEmpty())
        {
            App.OleProcedure("Quit");
            return(i-1);
        }
    }
    App.OleProcedure("Quit");
}
//---------------------------------------------------------------------------
void __fastcall Loading::AnalyseExcel(int RecCount)
{
    AnsiString Path = ProgPath + "//Files//Общий анализ.xls",Date;
    Variant App,Sh;
    App=Variant::CreateObject("Excel.Application");
    Sh=App.OlePropertyGet("Workbooks").OlePropertyGet("Open",TVariant(Path)).OlePropertyGet("Worksheets", 1);
    int i;
    for(i=8;i<RecCount;i++)
    {
    AnsiString String = Sh.OlePropertyGet("Cells",i,3);
        if(String == "")
        {
            Excel[i].Count = Sh.OlePropertyGet("Cells",i,6);
            Excel[i].Name = Sh.OlePropertyGet("Cells",i,5);
        }
        else
        {
            Excel[i].Date = Sh.OlePropertyGet("Cells",i,3);
        }
    }
    App.OleProcedure("Quit");
}
//---------------------------------------------------------------------------
void __fastcall Loading::Formirate(int RecCount)
{
    TStringList *Result = new TStringList;
    AnsiString Date;
    String Count;
    int i;
    for(i=8;i<RecCount;i++)
    {
        if(Excel[i].Date != "")
        {
            Date = Excel[i].Date;
        }
        else
        {
            if(Excel[i].Count >= 1)
            {
                if(Count.Length() > 2)
                {
                    Count = StringReplace(FloatToStr(Excel[i].Count),",",".",TReplaceFlags() << rfReplaceAll);
                    Count = Count.Delete(5,Count.Length()-4);
                }
                else
                {
                    Count = FloatToStr(Excel[i].Count) + ".00";
                }
            }
            else
            {
                Count = StringReplace(FloatToStr(Excel[i].Count),",",".",TReplaceFlags() << rfReplaceAll);
                Count = Count.Delete(5,Count.Length()-4);
            }
            if(Count.Length() == 1)
            {
                Count = Count + ".00";
            }
            Result->Add(Excel[i].Name + ";" + Count + ";" + Date + ";");
        }
    }
    Result->SaveToFile(ProgPath + "//Results//Общий анализ.txt");
    delete Result;
    Result = NULL;
}
//---------------------------------------------------------------------------