Как заставить работать Application->ProcessMessages();?

#pragma comment(lib, "urlmon.lib")// для URLDownloadToFile !

URLDownloadToFile(0,"http://dl.dropbox.com/s/d8qg97bzlc5d6x/abonat.xlsx?dl=1&token_hash=AAG5Eor7asV6n5tDQMPMawczOhI5A7Pycxu4szA7z6iAA......

//##############################################################################
void __fastcall TForm1::Timer1Timer(TObject *Sender)
//##############################################################################
{
if (geografic == true)
{ m++;
       // Panel4->Refresh();
      //ImageML->Picture->Bitmap = Image2->Picture->Bitmap;
       Application->ProcessMessages();
      ImageML->Picture->Bitmap = Image2->Picture->Bitmap;
       //Application->ProcessMessages();
      //ImageML->Invalidate(); //Перерисовываем.
}
}

//##############################################################################
void __fastcall TForm1::Timer1Timer(TObject *Sender)
//##############################################################################
{
  ImageList1->GetBitmap(index, Image2->Picture->Bitmap);
   Image2->Invalidate();
  //Application->ProcessMessages();
  index++; //Берем индекс следующей картинки.
  if (index>7) index = 0;//обнуление индекса
 
if (geografic == true)
  { m++;
       // Panel4->Refresh();
      //ImageML->Picture->Bitmap = Image2->Picture->Bitmap;
       Application->ProcessMessages();
      ImageML->Picture->Bitmap = Image2->Picture->Bitmap;
       //Application->ProcessMessages();
      //ImageML->Invalidate(); //Перерисовываем.
  }
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if (geografic == true)
{ m++;
      ImageML->Picture->Bitmap = Image2->Picture->Bitmap;
      ImageML->Update();
      Application->ProcessMessages();
}
}

if (geografic == true)
{            
         Beep();
      ImageML->Picture->Bitmap = Image2->Picture->Bitmap;
      
}

//---------------------------------------------------------------------------
class main_thread_t;
 
static main_thread_t *main_thread;
 
class main_thread_t : public TThread
{
public:
    main_thread_t(bool CreateSuspended = false): TThread(CreateSuspended)
    {
        FreeOnTerminate = true;
    }
 
    void __fastcall beg(void)
    {
        Form1->ProgressBar1->Position = 0;
        Form1->Timer1->Enabled = true;
    }
 
    void __fastcall end(void)
    {
        Form1->Timer1->Enabled = false;
        Form1->ProgressBar1->Position = 100;
        main_thread = 0;
        Application->MessageBox
        (
            "Готово",
            "Сообщение",
            MB_OK
        );
    }
 
    virtual void __fastcall Execute(void)
    {
        Synchronize(beg);
        Sleep(5000);
        Synchronize(end);
    }
};
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if (main_thread)
    {
        Application->MessageBox
        (
            "Мы уже что-то делаем",
            "Сообщение",
            MB_OK
        );
        return;
    }
    main_thread = new main_thread_t;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    ProgressBar1->Position += 10;
}
//---------------------------------------------------------------------------

{ int i;   
                 int s;
                 s = 0;
                 for (i = 1; i <= 1000000000; i++)
                 {
                    
                     s = s + 1;
                     label1->Text = s.ToString();
                     
                 }
                 Application->ProcessMessages();
                 
    }

for(int i = 0; i < 10000; i++)
   {
     Label1->Caption = IntToStr(i);
     Application->ProcessMessages();
   }

Application::DoEvents();