diff -r a9d509848390 -r 4b4a043111f4 hedgewars/uLandGraphics.pas
--- a/hedgewars/uLandGraphics.pas	Tue Feb 11 22:05:03 2014 +0400
+++ b/hedgewars/uLandGraphics.pas	Wed Feb 12 00:50:15 2014 +0400
@@ -615,7 +615,7 @@
 bpp:= Image^.format^.BytesPerPixel;
 TryDo(bpp = 4, 'It should be 32 bpp sprite', true);
 // Check that sprite fits free space
-p:= @(PByteArray(Image^.pixels)^[ Image^.pitch * row * h + col * w * 4 ]);
+p:= PByteArray(@(PByteArray(Image^.pixels)^[ Image^.pitch * row * h + col * w * 4 ]));
 case bpp of
     4: for y:= 0 to Pred(h) do
         begin
@@ -628,7 +628,7 @@
                             SDL_UnlockSurface(Image);
                         exit;
                     end;
-        p:= @(p^[Image^.pitch]);
+        p:= PByteArray(@(p^[Image^.pitch]));
         end;
     end;
 
@@ -641,7 +641,7 @@
     end;
 
 // Checked, now place
-p:= @(PByteArray(Image^.pixels)^[ Image^.pitch * row * h + col * w * 4 ]);
+p:= PByteArray(@(PByteArray(Image^.pixels)^[ Image^.pitch * row * h + col * w * 4 ]));
 case bpp of
     4: for y:= 0 to Pred(h) do
         begin
@@ -666,7 +666,7 @@
                     Land[cpY + y, cpX + x]:= lfObject or LandFlags;
                 LandPixels[gY, gX]:= PLongword(@(p^[x * 4]))^
                 end;
-        p:= @(p^[Image^.pitch]);
+        p:= PByteArray(@(p^[Image^.pitch]));
         end;
     end;
 if SDL_MustLock(Image) then