Как по нажатию на кнопку создать новый поток

void __fastcall TForm1::Button1Click(TObject *Sender)
 
{
DWORD  WINAPI MyThread (LPVOID lpParameter)    {
 
         int i;
        Edit1->Text="";
        i=rand()% 10+1;
        Edit1->Text=(Edit1->Text+IntToStr(i));   }
 
              {
        HANDLE hThread;
         Boolean stop;
 
 //Application->ProcessMessages();
 
       hThread = CreateThread(NULL, 0, MyThread, (LPVOID)i, 0,NULL);
       if(hThread)
       {
                     stop=true;
        }
 
      }
 
 
 
/*Edit1->Text="";
i=rand()% 10+1;
Edit1->Text=(Edit1->Text+IntToStr(i));      */
  }
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
stop = false;
}

класс потока * переменная = new класс потока (false); //Это создаст поток, но не запустит его
//Здесь что-то делаешь с классом потока - например, инициализируешь какие-то его переменные
//Можно поставить флаг FreeOnTerminate - в этом случае поток сам почистится за собой, читай документацию
переменная->Resume(); //Это запустит поток

TThread::TThread(bool CreateSuspended)