diff --git a/lcl/forms.pp b/lcl/forms.pp
index e64251a7ad..12ae6e1f4a 100644
--- a/lcl/forms.pp
+++ b/lcl/forms.pp
@@ -1323,6 +1323,9 @@ type
   // application hint stuff
   TCMHintShow = record
     Msg: Cardinal;
+  {$ifdef cpu64}
+    UnusedMsg: Cardinal;
+  {$endif}
     Reserved: WPARAM;
     HintInfo: PHintInfo;
     Result: LRESULT;
@@ -1330,7 +1333,10 @@ type
 
   TCMHintShowPause = record
     Msg: Cardinal;
-    WasActive: Integer;
+  {$ifdef cpu64}
+    UnusedMsg: Cardinal;
+  {$endif}
+    WasActive: PtrInt;
     Pause: PInteger;
     Result: LRESULT;
   end;