diff --git a/ide/charactermapdlg.pas b/ide/charactermapdlg.pas
index fed68526a3..4f71a9e75d 100644
--- a/ide/charactermapdlg.pas
+++ b/ide/charactermapdlg.pas
@@ -64,9 +64,9 @@ type
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure StringGrid1SelectCell(Sender: TObject; aCol, aRow: Integer;
-      var CanSelect: Boolean);
+      var {%H-}CanSelect: Boolean);
     procedure StringGrid2SelectCell(Sender: TObject; aCol, aRow: Integer;
-      var CanSelect: Boolean);
+      var {%H-}CanSelect: Boolean);
     procedure StringGridKeyPress(Sender: TObject; var Key: char);
     procedure StringGridMouseDown(Sender: TObject; Button: TMouseButton;
       {%H-}Shift: TShiftState; X, Y: Integer);
diff --git a/ide/frames/codetools_codecreation_options.pas b/ide/frames/codetools_codecreation_options.pas
index 0529335a89..92a83d07f3 100644
--- a/ide/frames/codetools_codecreation_options.pas
+++ b/ide/frames/codetools_codecreation_options.pas
@@ -26,8 +26,7 @@ interface
 
 uses
   Classes, SysUtils, FileUtil, Forms, ExtCtrls, StdCtrls, Dialogs, EditBtn,
-  SourceChanger, CodeToolsOptions, LazarusIDEStrConsts, IDEOptionsIntf,
-  IDEDialogs;
+  SourceChanger, CodeToolsOptions, LazarusIDEStrConsts, IDEOptionsIntf;
 
 type