Процесс загрузки файла на ХР и Вин 7 (Тестируем вместе)

#include <vcl.h>
#pragma hdrstop
#include <sys/stat.h>// для вычисления длины файла
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
TForm1 *Form1;
bool
start = false,
start_end = false;
double
m=8.33,
aa = 0;
AnsiString
direktoria = ExtractFilePath(Application->ExeName);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{    if(!DirectoryExists(direktoria+"Downloads"))CreateDirectory("Downloads", NULL);
     Label1->Caption = "0,00";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{ TStringList * Lst = new TStringList;
  Lst->Text = ( "https://www.dropbox.com/s/5qcji6ob5z5ksdi/Getting%20Started.pdf?dl=1\r\n"
 +direktoria+"Downloads\\Black.bmp");
Lst->SaveToFile(direktoria+"DFM");
 ShellExecute(Handle, "open","CoDe.exe" ,0,0, SW_HIDE);
 start_end = true;
 delete Lst;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
ShellExecute(Handle, "open","explorer.exe" ,(direktoria+"Downloads\\").c_str(),0, SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  if(FileExists(direktoria+"DFM")
    && start_end == true)
  {
//это только если зашарена папка и программа запущена от \\Work\ тогда показывает процесс загрузки на виндовс 7!
if(FileExists(direktoria+"Downloads\\Black.bmp"));
    /*  {TFileStream *fs = new TFileStream((direktoria+"Downloads\\Black.bmp").c_str(),fmOpenRead);
       Label1->Caption=fs->Size;
  delete fs;
 
      aa= fs->Size;
      }   */
      struct stati64 statbuf;
      _stati64((direktoria+"Downloads\\Black.bmp").c_str(), &statbuf);
      aa = statbuf.st_size;
      
 Form1->Caption = "Загрузка файла ("+String(FormatFloat("0.000",aa/1000000))+" Mb)";
 Label1->Caption = String(FormatFloat("0.000",aa/1000000))+" Mb";
 ProgressBar1->Position = aa*m/1000000;
 
  }else
  {
   Form1->Caption = "";
   Label1->Caption = "";
   ProgressBar1->Position = 0;
  }
  if (start_end == true
     && !FileExists(direktoria+"DFM"))
     {
       start_end = false;
     }
}
//---------------------------------------------------------------------------

//это только если зашарена папка и программа запущена от сетевое окружение \\Work\ тогда показывает процесс загрузки на виндовс 7!
if(FileExists(direktoria+"Downloads\\Black.bmp"));