diff --git a/ide/componentlist.pas b/ide/componentlist.pas
index 7ea68d3654..3ffee1b042 100644
--- a/ide/componentlist.pas
+++ b/ide/componentlist.pas
@@ -71,7 +71,7 @@ type
     procedure miExpandClick(Sender: TObject);
     procedure OKButtonClick(Sender: TObject);
     procedure ComponentsDblClick(Sender: TObject);
-    procedure ComponentsChange(Sender: TObject; Node: TTreeNode);
+    procedure ComponentsChange(Sender: TObject; {%H-}Node: TTreeNode);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure pmCollapseExpandPopup(Sender: TObject);
     procedure TreeFilterEdAfterFilter(Sender: TObject);
diff --git a/ide/frames/toolbar_options.pas b/ide/frames/toolbar_options.pas
index 1d8bd0cc75..0200a765cd 100644
--- a/ide/frames/toolbar_options.pas
+++ b/ide/frames/toolbar_options.pas
@@ -45,7 +45,7 @@ type
     procedure cbToolbarsVisibleCheckBoxClick(Sender: TObject);
   public
     function GetTitle: String; override;
-    procedure Setup(ADialog: TAbstractOptionsEditorDialog); override;
+    procedure Setup({%H-}ADialog: TAbstractOptionsEditorDialog); override;
     procedure ReadSettings(AOptions: TAbstractIDEOptions); override;
     procedure WriteSettings(AOptions: TAbstractIDEOptions); override;
     class function SupportedOptionsClass: TAbstractIDEOptionsClass; override;
diff --git a/ide/mainbar.pas b/ide/mainbar.pas
index 570daf1c8b..51adde548e 100644
--- a/ide/mainbar.pas
+++ b/ide/mainbar.pas
@@ -391,12 +391,12 @@ type
     procedure MainIDEBarDropFiles(Sender: TObject;
       const FileNames: array of String);
     procedure SplitterMouseDown(Sender: TObject; Button: TMouseButton;
-      Shift: TShiftState; X, Y: Integer);
-    procedure SplitterMouseUp(Sender: TObject; Button: TMouseButton;
-      Shift: TShiftState; X, Y: Integer);
-    procedure SplitterMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
+      {%H-}Shift: TShiftState; X, Y: Integer);
+    procedure SplitterMouseUp(Sender: TObject; {%H-}Button: TMouseButton;
+      {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
+    procedure SplitterMouseMove(Sender: TObject; {%H-}Shift: TShiftState; X, Y: Integer);
     procedure pnlSpeedButtonsMouseDown(Sender: TObject; Button: TMouseButton;
-      Shift: TShiftState; X, Y: Integer);
+      {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
   private
     FOldWindowState: TWindowState;
     FOnActive: TNotifyEvent;