[ART]

Сам разберешься..
А вот кнопка со случайными координатами:

Код:

procedure CreateButton;
begin
Randomize;
 with TButton.Create(Self) do begin
   left := random(Form1.ClientWidth);
   top := random(Form1.ClientHeight);
   width  := 20;
   height := 20;
   OnClick := BtnClick;
   Parent := Form1;
 end;
end;

procedure TForm1.BtnClick(Sender: TObject);
begin
 //Обработчик события
end;