procedure TForm1.PanelClick(Sender: TObject);
var
categoria:TButtonCategory;
boton: TButtonItem;
begin
seccionBotones.Parent:= Panel;
categoria:=seccionBotones.Categories.Add;
categoria.Caption:= 'Categoria 1';
boton:= categoria.Items.Add;
boton.Caption:='Boton'
end;