VCL ScrollBox ScrollInView的火猴TVertScrollBox替代方案

Question

我正在使用Delphi XE8开发一个安卓应用程序，我想在单击按钮时移动VertScrollBox的ViewportPosition，以查看特定的组件(在VertScrollBox中的某个位置)。

但是设置ViewportPosition的值不起作用(我在这里尝试了答案：Go Top a TVertScrollBox)，ScrollBy方法也不起作用(http://docwiki.embarcadero.com/Libraries/Seattle/en/FMX.Layouts.TVertScrollBox)。

我试过这个：

procedure TFormTournee.T3ButtonBackToTopClick(Sender: TObject);
begin
    T1VertScrollBox.ViewportPosition := PointF(T1VertScrollBox.ViewportPosition.X, 0);
    T1VertScrollBox.RealignContent;
end;

那就是：

procedure TFormTournee.T3ButtonBackToTopClick(Sender: TObject);
begin
    T1VertScrollBox.ScrollBy(0,-100);
    T1VertScrollBox.RealignContent;
end;

现在，我刚刚在Windows上试过了(我必须解决Android上关于存储不足的另一个问题)，但是当我点击的时候没有什么变化，而且它应该在Windows和Android上也一样，不是吗？有人能帮帮我吗？或者给我解释一下我做错了什么？谢谢！