Потоки Thread Error Неверный дескриптор (6)

void __fastcall ThreadRSA::Execute()
{
 
   Form1->Log->Lines->Add((TimeToStr(Time()) + " Генерирование ключей RSA - start"));
 
   TimeStart=clock();
 
   TRSA a(Form1->RSA_Rozm_klucza->Text.ToInt());
   char* tmp = a.KeyModul;
   Form1->RSA_N->Text = AnsiString(tmp);
   tmp = a.OpenKey;
   Form1->RSA_E->Text = AnsiString(tmp);
   tmp = a.SecretKey;
   Form1->RSA_D->Text = AnsiString(tmp);
   TimeEnd=clock();
 
   double tmp_kluczy=(TimeEnd-TimeStart)/CLOCKS_PER_SEC;
 
   Form1->Log->Lines->Add((TimeToStr(Time()) + " Генерирование ключей RSA - finish"));
   Form1->Log->Lines->Add("Время: " + FloatToStr(tmp_kluczy) + "сек");
 
}

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
Thread = new ThreadRSA(true);
 
}

void __fastcall TForm1::RSA_Rand_ButtonClick(TObject *Sender)
{
   Thread->FreeOnTerminate = true;
   Thread->Resume();
}

Thread->FreeOnTerminate = true;

void __fastcall TForm1::RSA_Rand_ButtonClick(TObject *Sender)
{
   Thread->FreeOnTerminate = true;
   Thread->Resume();
  Thread = new ThreadRSA(true);
}