diff --git a/lcl/include/application.inc b/lcl/include/application.inc
index 1f8c609475..44d0c056a9 100644
--- a/lcl/include/application.inc
+++ b/lcl/include/application.inc
@@ -564,7 +564,7 @@ end;
  ------------------------------------------------------------------------------}
 function TApplication.ValidateHelpSystem: Boolean;
 begin
-  Result:=HelpManager<>nil;
+  Result := HelpManager <> nil;
 end;
 
 {------------------------------------------------------------------------------
diff --git a/lcl/lcltype.pp b/lcl/lcltype.pp
index 4d03dafb9d..bcb5323208 100644
--- a/lcl/lcltype.pp
+++ b/lcl/lcltype.pp
@@ -1154,6 +1154,17 @@ type
   TDIBSection = tagDIBSECTION;
   DIBSECTION = tagDIBSECTION;
 
+  tagHELPINFO = record
+    cbSize: DWORD;
+    iContextType: Integer;
+    iCtrlId: Integer;
+    hItemHandle: THandle;
+    dwContextId: DWORD;
+    MousePos: TPOINT;
+  end;
+  THelpInfo = tagHelpInfo;
+  PHelpInfo = ^THelpInfo;
+
 const
   RASTER_FONTTYPE = 1;
   DEVICE_FONTTYPE = 2;
@@ -1161,6 +1172,9 @@ const
 
   GCP_DBCS = 1;
 
+// context type
+  HELPINFO_WINDOW   = $0001;
+  HELPINFO_MENUITEM = $0002;
 
 //==============================================
 // Background Modes