Создание кнопки в любом месте TForm

(max(B1->Top, B2->Top) < min(B1->Top + B1->Height, B2->Top + B2->Height)) &&
(max(B1->Left, B2->Left) < min(B1->Left + B1->Width, B2->Left + B2->Width))

TButton *ButtOK=new TButton(this);
ButtOK->Parent = this;
ButtOK->Caption = "Ok";

TButton *B[10];
TPoint Koor(int i)
        {
        TPoint q;
        q.x=1.*(Form1->ClientWidth-B[i]->Width)*rand()/RAND_MAX;
        q.y=1.*(Form1->ClientHeight-B[i]->Height)*rand()/RAND_MAX;
        int j;
        for (j=0; j<i; j++) if (q.x>B[j]->Left-B[j]->Width && q.x<B[j]->Left+B[i]->Width && q.y>B[j]->Top-B[j]->Height  && q.y<B[j]->Top+B[i]->Height) j=100;
 
        if (j==101) return Koor(i);
        else return q;
        }
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
int j;
randomize();
for (j=0; j<5; j++)
        {
        B[j]=new TButton(this);
        B[j]->Parent=this;
        B[j]->Caption=j;
        B[j]->Tag=j;       // это нужнно будет при вызове обработчика нажатия кнопки. (Его тоже нужно прописывать при динамическом создании компонент)
        TPoint b;
        b=Koor(j);
        B[j]->Left=b.x;
        B[j]->Top=b.y;
        }
}
//---------------------------------------------------------------------------

   for (j=0; j<i; j++) if (q.x>B[j]->Left-B[j]->Width && q.x<B[j]->Left+B[i]->Width && q.y>B[j]->Top-B[j]->Height  && q.y<B[j]->Top+B[i]->Height) j=100;