Кто поможет привязать Progressbar к процессу копирования?

//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <vcl.h>
#pragma hdrstop
 
#include "copy2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 void CopyDirectory (AnsiString Src, AnsiString Dest)
{
  TSearchRec sr;
  if (FindFirst(Src+"\\*", faAnyFile, sr) == 0)
     {
       do
         {
           if (sr.Attr & faDirectory) // directory
              {
                if (sr.Name!=".")
                if (sr.Name!="..")
                   {
                     AnsiString SubFld = Src+"\\"+sr.Name;
                     if (!DirectoryExists(Dest+"\\"+ sr.Name))
                         CreateDir(Dest+"\\"+ sr.Name);
                     CopyDirectory (SubFld, Dest+"\\"+ sr.Name);
                   }
              }
           else // file
              {
                if (sr.Name!=".")
                if (sr.Name!="..")
                   {
                     AnsiString OldName = Src+"\\"+ sr.Name;
                     AnsiString NewName = Dest+"\\"+ sr.Name;
                     CopyFile(OldName.c_str(), NewName.c_str(), TRUE);
                   }
              }
          } while (FindNext(sr) == 0);
    FindClose(sr);
  }
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  ProgressBar1->Enabled = true;
  CopyDirectory ("C:\\D\\","C:\\B\\");
  ProgressBar1->Enabled = false;
 
}

void FolderSize(AnsiString Folder,int &Size,int &fCount,int &folCount) 
  { 
//Функция записывает в параметры Size - размер папки в байтах
//fCount - общее количество файлов в папке
//folCount - общее количество подпапок в папке
 
  TSearchRec SR; 
//Проверяем, заканчивается ли путь к папке на \, если да, то удаляем его,
  if(Folder[Folder.Length()] == '\\') 
     Folder.SetLength(Folder.Length()-1); 
  if(FindFirst(Folder+"\\*.*",faAnyFile,SR) == 0)//Делаем первый поиск
   do 
      {  //Если то что мы нашли не является обратными ссылками...
         if(SR.Name != "." &&  SR.Name != "..") 
         {  //Если то что мы нашли является папкой, функция вызывает саму себя
//и увеличивает счетчик кол-ва подпапок
            if((SR.Attr & faDirectory)!=0) 
               { 
                  FolderSize(Folder+"\\"+SR.Name,Size,fCount,folCount); 
                  folCount++; 
               } 
            else //Если это файл - прибавляем его размер к общему размеру
               { 
                  Size = Size + SR.Size; 
                  fCount++; 
               } 
         } 
      } 
   while(FindNext(SR)==0); 
    FindClose(SR); 
  }