diff --git a/lcl/interfaces/gtk2/gtk2proc.inc b/lcl/interfaces/gtk2/gtk2proc.inc
index 111bbe89cf..564ab0a933 100644
--- a/lcl/interfaces/gtk2/gtk2proc.inc
+++ b/lcl/interfaces/gtk2/gtk2proc.inc
@@ -2249,7 +2249,7 @@ begin
     ' keyval=',(AEvent^.keyval),
     ' hardware_keycode=',(AEvent^.hardware_keycode),
     ' length=',(AEvent^.length),
-    ' _string="',dbgMemRange(AEvent^._string,AEvent^.length),'"',
+    ' _string="',dbgMemRange(PByte(AEvent^._string),AEvent^.length),'"',
     ' group=',(AEvent^.group),
     ' Widget=',GetWidgetClassName(AWidget),
     ' Before=',ABeforeEvent,' Down=',AHandleDown,' HandledByLCL=',HandledByLCL]);