$l= rand(0,c("Form1")->w-c("button1")->w);
$t= rand(0,c("Form1")->h-c("button1")->h);
c("button1")->x =$l;
  c("button1")->y =$t; //ставиш в курсор на обекте.