--- a/hedgewars/uLandObjects.pas	Fri Aug 23 19:26:52 2019 +0300
+++ b/hedgewars/uLandObjects.pas	Fri Aug 23 21:04:40 2019 +0300
@@ -369,7 +369,7 @@
         if alphaOnly then
             begin
             for x := 0 to Image^.w - 1 do
-                (rowData + x)^:= (PByte(Image^.pixels) + y * Image^.pitch + x * 4 + AByteIndex)^;
+                PByteArray(rowData)^[x] := PByteArray(Image^.pixels)^[y * Image^.pitch + x * 4 + AByteIndex];
             syncedPixelDigest:= Adler32Update(syncedPixelDigest, rowData, Image^.w);
             end
         else