Динамические создание объектов в TabbedNotebook

Code:

TPage = class(TCustomControl)

private

procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;

protected

procedure ReadState(Reader: TReader); override;

procedure Paint; override;

public

constructor Create(AOwner: TComponent); override;

published

property Caption;

property Height stored False;

property TabOrder stored False;

property Visible stored False;

property Width stored False;

end;

Code:

{ Данная процедура добавляет кнопку в случайной позиции на }

{ текущей странице данного TNotebook.                      }

procedure AddButton(Notebook1: TNotebook);

var

page: TPage;

button: TButton;

begin

with Notebook1 do

   page := TPage(Pages.Objects[PageIndex]);

button := TButton.Create(page);

try

   with button do

   begin

     Parent := page;

     Left := Random(page.ClientWidth - Width);

     Top := Random(page.ClientHeight - Height);

   end;

except

   button.Free;

end;

end;