Перемещение кнопки рандомно

Randomize();
Button1->Left = Random(Form1->Width - Button1->Width);
Button1->Top = Random(Form1->Height - Button1->Height);

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  Timer1->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Timer1->Enabled = true;    
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  int r1, r2;
  randomize();
  r1 = rand() % (ClientWidth - Button1->Width);
  r2 = rand() % (ClientHeight - Button1->Height);
  Button1->Left = r1;
  Button1->Top = r2;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Timer1->Enabled ^= 1;  // включаем / выключаем таймер
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  randomize();
  if (CheckBox1->Checked)
  {
    // "резкое" перемещение
    Button1->Left = random(ClientWidth - Button1->Width);
    Button1->Top = random(ClientHeight - Button1->Height);
  }
  else
  {
    // "плавное" перемещение
    const n = 50;  // шаг перемещения
    Button1->Left += random(n+1) - n/2;
    Button1->Top += random(n+1) - n/2;
    // чтобы кнопка не выходила за границы формы
    if (Button1->Left < 0)
      Button1->Left = 0;
    if (Button1->Top < 0)
      Button1->Top = 0;
    if (Button1->Left + Button1->Width > ClientWidth)
      Button1->Left = ClientWidth - Button1->Width;
    if (Button1->Top + Button1->Height > ClientHeight)
      Button1->Top = ClientHeight - Button1->Height;
  }
}