diff --git a/converter/convertdelphi.pas b/converter/convertdelphi.pas
index 346eee9bbb..fc2099f6dd 100644
--- a/converter/convertdelphi.pas
+++ b/converter/convertdelphi.pas
@@ -132,7 +132,7 @@ type
     fPrevSelectedPath: string;
     // Missing units that are commented automatically in all units.
     fAllCommentedUnits: TStringList;
-    function DoMissingUnits(AUsedUnitsTool: TUsedUnitsTool): integer; virtual;
+    function DoMissingUnits({%H-}AUsedUnitsTool: TUsedUnitsTool): integer; virtual;
     function GetCachedUnitPath(const AUnitName: string): string;
   protected
     function EndConvert(AStatus: TModalResult): Boolean;
@@ -200,7 +200,7 @@ type
     function ExtractOptionsFromDelphiSource: TModalResult; virtual; abstract;
     // Abstract base for the fake Project / Package virtual methods.
     function GetMainName: string; virtual; abstract;
-    function SaveAndMaybeClose(aFilename: string): TModalResult; virtual;
+    function SaveAndMaybeClose({%H-}aFilename: string): TModalResult; virtual;
     function ContainsFile(aFileName: string): Boolean; virtual; abstract;
     function FindDependencyByName(const PackageName: string): TPkgDependency; virtual; abstract;
   public
diff --git a/ide/frames/toolbar_options.pas b/ide/frames/toolbar_options.pas
index 41cab3de75..24de70f64e 100644
--- a/ide/frames/toolbar_options.pas
+++ b/ide/frames/toolbar_options.pas
@@ -65,8 +65,8 @@ type
     procedure bDeleteClick(Sender: TObject);
     procedure cbBorderStyleChange(Sender: TObject);
     procedure cbGrabStyleChange(Sender: TObject);
-    procedure CoolBarMouseDown(Sender: TObject; Button: TMouseButton;
-      Shift: TShiftState; X, Y: integer);
+    procedure CoolBarMouseDown(Sender: TObject; {%H-}Button: TMouseButton;
+      {%H-}Shift: TShiftState; X, Y: integer);
     procedure CoolbarResize(Sender: TObject);
     procedure spGrabWidthChange(Sender: TObject);
     procedure tmWaitTimer(Sender: TObject);
@@ -81,7 +81,7 @@ type
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     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/toolbarconfig.pas b/ide/toolbarconfig.pas
index 30efaa0798..116ec52bfc 100644
--- a/ide/toolbarconfig.pas
+++ b/ide/toolbarconfig.pas
@@ -519,7 +519,6 @@ var
   aCaption: string;
   aPMask: Integer;
   mi: TIDEMenuItem;
-  canShow: Boolean;
 begin
   for I:= 0 to MainList.Count -1 do
   begin