Как реализовать запрос программы на наличие обновлений?

String GetVersionExe()
{
   LPTSTR lpszFilePath = Application->ExeName.c_str();
   DWORD dwDummy;
   DWORD dwFVISize = GetFileVersionInfoSize( lpszFilePath , &dwDummy );
 
   LPBYTE lpVersionInfo = new BYTE[dwFVISize];
 
   GetFileVersionInfo( lpszFilePath , 0 , dwFVISize , lpVersionInfo );
 
   UINT uLen;
   VS_FIXEDFILEINFO *lpFfi;
 
   VerQueryValue( lpVersionInfo , L"\\" , (LPVOID *)&lpFfi , &uLen );
 
   DWORD dwFileVersionMS = lpFfi->dwFileVersionMS;
   DWORD dwFileVersionLS = lpFfi->dwFileVersionLS;
 
   delete [] lpVersionInfo;
 
   DWORD dwLeftMost     = HIWORD(dwFileVersionMS);
   DWORD dwSecondLeft   = LOWORD(dwFileVersionMS);
   DWORD dwSecondRight  = HIWORD(dwFileVersionLS);
   DWORD dwRightMost    = LOWORD(dwFileVersionLS);
   return IntToStr((int)dwLeftMost)+"."+IntToStr((int)dwSecondLeft)+"."+
                       IntToStr((int)dwSecondRight)+"."+IntToStr((int)dwRightMost);
}

void __fastcall MyThread::Execute()
{
    //---- Place thread code here ----
  char szPath[MAX_PATH];
  GetModuleFileName(NULL, szPath, MAX_PATH);
  SetCurrentDir(ExtractFilePath(szPath));
  TFileStream* fs = new TFileStream("myProgram.exe", FileCreate(""));
  HTTP->Get(Label->Caption, fs);  // в Label находится адрес скачиваемого файла
  delete fs;
}

ParamStr(0);  // возвращает путь и имя исполняемой программы

void __fastcall TForm1::HTTPWork(TObject *ASender, TWorkMode AWorkMode,
      int AWorkCount)
{
  ProgressBar1->Position = AWorkCount;
  CGauge1->Progress = 100*AWorkCount/ProgressBar1->Max;
  Label1->Caption = " Прогресс загрузки, байт: " + FormatFloat("### ### ###", ProgressBar1->Position) + " / " + FormatFloat("### ### ###", ProgressBar1->Max);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::HTTPWorkBegin(TObject *ASender, TWorkMode AWorkMode,
      int AWorkCountMax)
{
  ProgressBar1->Position = 0;
  CGauge1->Progress = 0;
  Label1->Caption = " Прогресс загрузки, байт: 0 / 0";
  ProgressBar1->Max = AWorkCountMax;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::HTTPWorkEnd(TObject *ASender, TWorkMode AWorkMode)
{
  if (CGauge1->Progress >= 100)
  {
    MessageBox(FindWindow("TForm1", "Ultra Mega Super Updater"), "Загрузка успешно завершена.\n\nЗакройте Updater для запуска программы.", "Сообщение", MB_OK + MB_ICONINFORMATION + MB_TASKMODAL);
  }
  else
  {
    MessageBox(FindWindow("TForm1", "Ultra Mega Super Updater"), "Загрузка прервана.\n\nЗакройте Updater и попробуйте повторить операцию либо скачайте обновление вручную.", "Ошибка", MB_OK + MB_ICONERROR + MB_TASKMODAL);
    ProgressBar1->Position = 0;
    CGauge1->Progress = 0;
    Label1->Caption = " Прогресс загрузки, байт: 0 / 0";
  }
}

//   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 ThreadHTTP::UpdateCaption()
//      {
//        Form1->Caption = "Updated in a thread";
//      }