Отправка почты в другом потоке

CRITICAL_SECTIN cs;
InitializeCriticalSection(&cs);

EnterCriticalSection(&cs);
pSomeObject->SomeProperty = SomeValue;
LeaveCriticalSection(&cs);

//   used in a method called using Synchronize, for example:
//
//      Synchronize(UpdateCaption);
//
//   where UpdateCaption could look like:
//
//      void __fastcall TMyThread::UpdateCaption()
//      {
//        Form1->Caption = "Updated in a thread";
//      }
//---------------------------------------------------------------------------
 
__fastcall TMyThread::TMyThread(bool CreateSuspended)
        : TThread(CreateSuspended)
{
}
//---------------------------------------------------------------------------
void __fastcall TMyThread::Execute()
{
        ThrTerminated= false;
        int t=true;
        int g, h;
 
        Form1->Timer2->Enabled=false;
        FreeOnTerminate= true;
        while (t)
        {
                g=true;
                h=true;
                try {
                        Form1->IdSMTP1->Connect();
                }
                catch (...)
                {
                        g=false;
                }
                try {
                        Form1->IdSMTP1->Send(Form1->IdMessage1);
                }
                catch (...)
                {
                        h=false;
                }
                t= !(g && h);
        }
        try{
                Form1->IdSMTP1->Disconnect();
        }
        catch (...) {}
 
        Form1->Timer2->Enabled=true;
        ThrTerminated= true;
}

typedef struct Params
{
     TIdSMTP *IdSMTP1;
     AnsiString Message;
}Params;
 
void __fastcall Button1Click (TObject *Sender)
{
      Params *pParams = new Params;
      pParams->IdSMTP1 = Form1->IdSMTP1;
      pParams->Message = Form1->IdMessage1;
      CreateThread(NULL, 0, SMTPThread , (LPVOID)pParams, NULL, NULL);
}
 
DWORD WINAPI SMTPThread (LPVOID pParam)
{
     Params *pParams = (Params*)pParam;
      EnterCriticalSection(&cs);
      pParams->IdSMTP1->Connect();
      pParams->IdSMTP1->Send(pParams->Message);
      LeaveCriticalSection(&cs);
     delete pParams;
      return 0;
}