检测何时到达TVertScrollBox底部，然后执行一些步骤

Question

我有一个TVertScrollBox和一堆流布局，这些布局是在运行时通过滚动框生成的。它是一个加载帖子的应用 每当用户到达TVertScrollBox底部时，我都希望加载10个新帖子（布局）。

我尝试使用ViewportPositionChange事件

//-scroll is a TVertScrollBox
 uses Math
procedure TForm1.scrollViewportPositionChange(Sender: TObject;
  const OldViewportPosition, NewViewportPosition: TPointF;
  const ContentSizeChanged: Boolean);

begin
if CompareValue(NewViewportPosition.Y,  scroll.Content.Height  ) = EqualsValue then
 begin
 ShowMessage('lets start loading new posts');
 end;
end;

这种尝试的问题是，只有在VertScrollBox上存在两个流布局时，它才起作用，这显然意味着我做错了。。

如何正确实现？