如何使用FireMonkey移动ScrollBox位置

Question

我使用Delphi 10.2.3和FireMonkey。我在TScrollBox（ContainerNetwork）内有一个大图像，这是我正在尝试移动这些条的位置以使各个区域（1到9）变得翠绿。 see problem

我得到在X和Y方向上必须移动的次数。

NumImgX := 1 + (Round(Image1.Width)  div Round(ContenitoreRete.Width));
  NumImgY := 1 + (Round(Image1.Height) div Round(ContenitoreRete.Height));

但是当我移动滚动位置时，会得到奇怪的动作，与编写的代码不符。

for y := 1 to NumImgY do
  begin
    for x := 1 to NumImgX do
    begin
      //sposta lo scroll
      ContenitoreRete.ScrollBy(1000000000, 1000000000);
      ContenitoreRete.ScrollBy(-Altezza * (y - 1), -Base * (x - 1));
    end;
  end;

为什么？另外，如果我正确使用ScrollBy（dx，dy），我会得到反向移位，所以我不得不使用ScrollBy（dy，dx）