diff --git a/lcl/interfaces/gtk2/gtk2winapi.inc b/lcl/interfaces/gtk2/gtk2winapi.inc
index e7637c504e..e3715808dc 100644
--- a/lcl/interfaces/gtk2/gtk2winapi.inc
+++ b/lcl/interfaces/gtk2/gtk2winapi.inc
@@ -7044,9 +7044,9 @@ begin
   Result := False;
   if not IsValidGDIObject(RGN) then
     exit;
-  if (PGdiObject(RGN)^.GDIBitmapObject <> nil) or
-    (PGdiObject(RGN)^.GDIPixbufObject <> nil) or
-    (PGdiObject(RGN)^.GDIPixmapObject.Image <> nil) then
+  if ({%H-}PGdiObject(RGN)^.GDIBitmapObject <> nil) or
+    ({%H-}PGdiObject(RGN)^.GDIPixbufObject <> nil) or
+    ({%H-}PGdiObject(RGN)^.GDIPixmapObject.Image <> nil) then
   begin
     // issue #27080
     Result := False;