Прозрачность формы, при наведении мыши на кнопку реализовать изменение её положения относительно формы с невозможностью выхода за границы формы

void __fastcall TForm1::FormCreate(TObject *Sender)
{
TrackBar1->Max = 255;
TrackBar1->Position = TrackBar1->Max;
Form1->AlphaBlend = true;
}

void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
Form1->AlphaBlendValue = TrackBar1->Position;
}

void __fastcall TForm1::Button1MouseEnter(TObject *Sender)
{
Button1->Top  = rand() % (Form1->ClientHeight - Button1->Height);
Button1->Left = rand() % (Form1->ClientWidth - Button1->Width);
}

#include <vcl.h>
#pragma hdrstop
 
#include "Unit66.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm66 *Form66;
//---------------------------------------------------------------------------
__fastcall TForm66::TForm66(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm66::Button1MouseEnter(TObject *Sender)
{
Button1->Top  = rand() % (Form66->ClientHeight - Button1->Height);
Button1->Left = rand() % (Form66->ClientWidth - Button1->Width);
}
//---------------------------------------------------------------------------
void __fastcall TForm66::TrackBar1Change(TObject *Sender)
{
Form66->AlphaBlendValue = TrackBar1->Position;
}
//---------------------------------------------------------------------------
void __fastcall TForm66::FormCreate(TObject *Sender)
{
TrackBar1->Max = 255;
TrackBar1->Position = TrackBar1->Max;
Form66->AlphaBlend = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1MouseEnter(TObject *Sender)
{
Button1->Top  = rand() % (Panel1->ClientHeight - Button1->Height);
Button1->Left = rand() % (Panel1->ClientWidth - Button1->Width);
}

void __fastcall TForm1::Button1MouseEnter(TObject *Sender)
{
TPoint mousePos;
GetCursorPos( &mousePos );
 
int x_, y_;
do
  {
  x_ = rand() % (Panel1->ClientWidth - Button1->Width);
  y_ = rand() % (Panel1->ClientHeight - Button1->Height);
  }
  while( ( mousePos.x >= Form1->Left + Panel1->Left + x_                  &&
           mousePos.x <= Form1->Left + Panel1->Left + Button1->Width + x_ )
           ||
         ( mousePos.y >= Form1->Top + Panel1->Top + y_                    &&
           mousePos.y <= Form1->Top + Panel1->Top + Button1->Height + y_ )   );
 
Button1->Top  = y_;
Button1->Left = x_;
}

void __fastcall TForm1::Button1MouseEnter(TObject *Sender)
{
TPoint mousePos;
GetCursorPos( &mousePos );
 
mousePos = ScreenToClient( mousePos );
 
int x_, y_;
do
  {
  x_ = rand() % ( ((TButton *)Sender)->Parent->ClientWidth - ((TButton *)Sender)->Width );
  y_ = rand() % ( ((TButton *)Sender)->Parent->ClientHeight - ((TButton *)Sender)->Height );
  }
  while( ( mousePos.x >= ((TButton *)Sender)->Parent->Left + x_                  &&
           mousePos.x <= ((TButton *)Sender)->Parent->Left + ((TButton *)Sender)->Width + x_ )
           ||
         ( mousePos.y >= ((TButton *)Sender)->Parent->Top + y_                    &&
           mousePos.y <= ((TButton *)Sender)->Parent->Top + ((TButton *)Sender)->Height + y_ )   );
 
Button1->Top  = y_;
Button1->Left = x_;
}

void __fastcall TForm1::ObjectMouseEnter( TObject *Sender )
{
#define objMove dynamic_cast<TControl*>(Sender)
 
TPoint mousePos;
GetCursorPos( &mousePos );
mousePos = ScreenToClient( mousePos );
 
 
int toFirftParentLeft = 0, toFirftParentTop = 0;
 
TControl *firstParentFind;
firstParentFind = dynamic_cast<TControl*>( Sender );
 
while(  !firstParentFind->Parent->InheritsFrom( this->ClassType() ) ) // Пока родитель не форма
  {
  toFirftParentLeft += firstParentFind->Parent->Left;
  toFirftParentTop  += firstParentFind->Parent->Top;
  firstParentFind = dynamic_cast<TControl*>( firstParentFind->Parent ); // Сам себе дедушка
  }
 
 
 
int x_, y_;
do
  {
  if( objMove->Parent->Width > 2*objMove->Width )
    x_ = rand() % ( objMove->Parent->ClientWidth - objMove->Width );
  else                                            // Если не влезает в родителя (не имеет смысла перемещать)
    {
    if( objMove->Parent->Height > 2*objMove->Height ) // Но хоть подергать чуток, если по другой оси влезет
      x_ = rand() % ( objMove->Parent->Width - objMove->Width );
    else
      x_ = objMove->Left;                         // Совсем-совсем не влезает
    break;
    }
 
  }
  while( ( mousePos.x >= toFirftParentLeft + x_                   &&    // Получилось увести из-под мышки?
           mousePos.x <= toFirftParentLeft + objMove->Width + x_ )  );  //
do
  {
  if( objMove->Parent->Height > 2*objMove->Height )
    y_ = rand() % ( objMove->Parent->ClientHeight - objMove->Height );
  else
    {
    if( objMove->Parent->Width > 2*objMove->Width )
      y_ = rand() % ( objMove->Parent->Height - objMove->Height );
    else
      y_ = objMove->Top;
    break;
    }
 
  }
  while(  ( mousePos.y >= toFirftParentTop + y_                    &&
           mousePos.y <= toFirftParentTop + objMove->Height + y_ )   );
 
objMove->Top  = y_;
objMove->Left = x_;
}