Генератор случайных чисел

void __fastcall TForm1::Button1Click(TObject *Sender)
{
      int wrk;
      AnsiString digit, selct ;
      TVarRec args[] = { wrk };
      Word Hour, Min, Sec, MSec;             // часы минуты секунды...
      DecodeTime(Time(), Hour, Min, Sec, MSec);
 
      if (RadioGroup1->ItemIndex == 1)
      {  wrk = Min * Sec * MSec ;
         args[0] = wrk;
         MaskEdit1->Text = Format("%.7d",args,1);
      }
      digit = MaskEdit1->Text;          // строка начального числа
      for (int i=0;i<100;i++)
      {
         selct = digit.SubString(3,4);  // берем 3-6 цифры 7-и значного числа
         Memo1->Lines->Add(IntToStr(i+1)+"  "+selct);
         wrk = StrToInt(selct);         // преобразование
         wrk = wrk*wrk;                 //  возведение в квадрат
         args[0] = wrk;
         digit = Format("%.7d",args,1); //  форматная строка
      }
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  randomize();
  if (Edit1->Text.Length() != 0)         // проверяем введено ли число
  {
     srand(StrToInt(Edit1->Text));
     unsigned int I1 = rand(), I2, I3, LenStr, Index;
     double Umnog = I1;
     AnsiString str1, str2;
     Memo1->Lines->Text = IntToStr(I1);     // выводим полученное случайное число
     for (int y = 0; y<100; y++)
     {
        I2 = pow(Umnog,2);                // возводим в степень 2
        Memo1->Lines->Add(IntToStr(I2));
        str1 = IntToStr(I2);
        LenStr = str1.Length();   // находим размер числа
        if (LenStr>4)            // если число больше 4х
        {
          Index = LenStr/2;
          if (LenStr%2 != 0) Index++;
          str2.Insert(str1[Index-1],1);      // вытаскиваем серединку
          str2.Insert(str1[Index],2);
          str2.Insert(str1[Index+1],3);
          str2.Insert(str1[Index+2],4);
          Umnog = StrToInt(str2);
          str2="";
        }
        else   Umnog = StrToInt(str1);
 
     }
 
  }
 
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
   randomize();
 
     srand(time(0));
     unsigned int I1 = rand(), I2, I3, LenStr, Index;
     double Umnog = I1;
     AnsiString str1, str2;
     Memo1->Lines->Text = IntToStr(I1);     // выводим полученное случайное число
     for (int y = 0; y<100; y++)
     {
        I2 = pow(Umnog,2);                // возводим в степень 2
        Memo1->Lines->Add(IntToStr(I2));
        str1 = IntToStr(I2);
        LenStr = str1.Length();   // находим размер числа
        if (LenStr>4)            // если число больше 4х
        {
          Index = LenStr/2;
          if (LenStr%2 != 0) Index++;
          str2.Insert(str1[Index-1],1);      // вытаскиваем серединку
          str2.Insert(str1[Index],2);
          str2.Insert(str1[Index+1],3);
          str2.Insert(str1[Index+2],4);
          Umnog = StrToInt(str2);
          str2="";
        }
        else   Umnog = StrToInt(str1);
 
     }
 
 
}