Избавиться от зависание формы

Application->ProcessMessages();

 void __fastcall myThread::Execute()
{
    try
      {
        Form1->Run();
      }
      catch(Exception *ex)
       {
       ShowMessage(ex->Message);
       }
 
 
}

 try
      {
         myThread *Thr = new myThread(true);
         Thr->Resume();
      }
       catch(Exception *ex)
       {
       ShowMessage(ex->Message);
       }

 void TForm1::Run()
{
 // здесь твой код
{

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TThread *tdh=new MyThread(true);
 tdh->Priority=tpLower;
 tdh->Resume();
}
//---------------------------------------------------------------------------
void __fastcall MyThread::Execute()
{
 
  Synchronize(MyConnect);
 
 
        //---- Place thread code here ----
}
//---------------------------------------------------------------------------
void __fastcall MyThread::MyConnect()
{
  try{
 Form1->ADOConnection1->Connected=false;
 Form1->ADOConnection1->Connected=true;
 Form1->Memo1->Lines->Add("+");
}
catch(...)
{
  Form1->Memo1->Lines->Add("-");
 //Execute();
}

//---------------------------------------------------------------------------
void __fastcall TMyThread::Execute()
{
 try
 {
 Form1->ADOConnection1->Connect(); // Попытка коннекта
 Synchronize(&Source);
 }
 cach(...)
 {
 Synchronize(&LogAdd);
 }
}
//---------------------------------------------------------------------------
void __fastcall TMyThread::Source()
{
Form1->DBGrid->DataSource=DataSource1;
}
//---------------------------------------------------------------------------
void __fastcall TMyThread::LogAdd()
{
Form1->LOG->Lines->Add("нет соединения");
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
void __fastcall TMyThread::Execute()
{
 try
 {
 Form1->ADOConnection1->Connect(); // Попытка коннекта
 Synchronize(&Source);
 }
 cach(...)
 {
 Synchronize(&LogAdd);
 }
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------

void __fastcall MyThread::Execute()
{
 //TADOConnection *adc=Form1->ADOConnection1;
 
 try
 {
 CoInitialize(NULL);
 Form1->ADOConnection1->Connected=false;
 Form1->ADOConnection1->Connected=true;
 // Ïîïûòêà êîííåêòà
 Synchronize(&Source);
 }
 catch(...)
 {
 Synchronize(&LogAdd);
 }
}
//---------------------------------------------------------------------------
void __fastcall MyThread::Source()
{
Form1->Memo1->Lines->Add("");
 
}
//---------------------------------------------------------------------------
void __fastcall MyThread::LogAdd()
{
Form1->Memo1->Lines->Add("");
}

void __fastcall TMyThread::Source()
{
Form1->DBGrid->DataSource=DataSource1;
}