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

procedure TForm1.Button1Click(Sender: TObject);
var
  Button2:Tbutton;
begin
  button2:=tbutton.create(self);
  button2.parent:=TabbedNotebook1.Pages.Object[0] as TTabPage;
  button2.setbounds(30,30,60,30);
end;