Bitmap verkleinern [Problem gelöst]

[TM6]

Ich nutze seit Jahren die Funktion SmoothResize, die auf

https://www.swissdelphicenter.ch/en/...de.php?id=1896

angegeben ist, um Bitmaps kleiner zu rechnen.
Ich hatte nur TBitmap in vcl.Graphics.TBitmap umbenannt gehabt.

Das funktionierte auch und funktioniert auch weiterhin unter Delphi 10.4.

Aber in Delphi 12.x gibt es eine Exception im zweiten Durchlauf (y=1, X=0) beim Zugriff auf
DstLine[x]. Und das anscheinend nur mit 64-bit, mit einem 32-bit-Compilat scheint es weiterhin zu funktionieren.

Was hat sich diesbezüglich an Delphi geändert, dass das plötzlich nicht mehr geht?
Irgendeine Idee, was das Problem sein könnte?