布局VertScrollBox动态添加元素后不显示滚动条

Question

我在设计时有一个空白的vertscrollbox。 vertscrollbox将客户端对齐到expandder3：

在运行时我会通过以下代码向vertscrollbox添加一些按钮：

  btnSelect := TButton.Create(VertScrollBox2);
  btnSelect.OnClick:= btnSelectCick;
  btnSelect.Parent := VertScrollBox2;
  btnSelect.Align := TAlignLayout.Scale;
  btnSelect.Position.X := cng*70;
  btnSelect.Position.Y := bng*70;
  btnSelect.Width := 60;
  btnSelect.Height := 60;
  btnSelect.text := 'Select'+bng.ToString+cng.ToString;
  btnSelect.name := 'Select'+bng.ToString+cng.ToString;

经过9次运行上面的代码就像这样：

你可以看到没有滚动条，按钮的某些部分隐藏在边框

下面

如何强制vertscrollbox布局显示滚动条？或者在运行时更新对齐！？