Рандомное размещение объектов на форме

for(int i = 0; i < ServCount; i++)
    {
        TShape *shp = new TShape(this);
 
        shp->Cursor = crDrag;
        shp->Parent = panPanel;
        shp->Brush->Color = clGrayText;
        shp->Name = "shpNewServer"+IntToStr(i+1);
        shp->Hint = "Server";
        shp->ShowHint = true;
        shp->Width = 40;
        shp->Height = 60;
        shp->Left = RandomRange(20,640) - (shp->Width/2);
        shp->Top = RandomRange(30,380) - (shp->Height/2);
        shp->Tag = 3;
    }

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    const int n = 20;
    TShape *shapes[n] = {0};
 
    for(int i = 0; i < n; i++)
    {
        shapes[i] = new TShape(this);
        shapes[i]->Parent = this;
 
        bool Ok;
        int left, top;
        do
        {
            Ok = true;
            left = RandomRange(0, this->Width - shapes[i]->Width);
            top = RandomRange(0, this->Height - shapes[i]->Height);
            TRect r = Rect(left, top, left + shapes[i]->Width, top + shapes[i]->Height);
 
            for(int j = 0; j < i; j++)
            {
                Ok = Ok && !IntersectRect(r, shapes[j]->BoundsRect);
            }
 
        } while(!Ok);
        shapes[i]->Left = left;
        shapes[i]->Top = top;
    }
}