diff --git a/converter/convcodetool.pas b/converter/convcodetool.pas
index 92335a4ac8..3c0badd667 100644
--- a/converter/convcodetool.pas
+++ b/converter/convcodetool.pas
@@ -675,7 +675,7 @@ var
       while (IdentEndPos<=MaxPos) and (IsIdentChar[Src[IdentEndPos]]) do
         inc(IdentEndPos);
       IdentLen:=IdentEndPos-xStart;
-      SetLength(IdentName, IdentLen);
+      SetLength(IdentName{%H-}, IdentLen);
       StrMove(PChar(IdentName), @Src[xStart], IdentLen);
       // Don't try to uselessly find short identifiers
       if (IdentLen<ReplaceFuncs.MinFuncLen) and (IdentName<>'Ptr') then Exit;
diff --git a/debugger/debugattachdialog.pas b/debugger/debugattachdialog.pas
index d0f17d2011..3ac039dde1 100644
--- a/debugger/debugattachdialog.pas
+++ b/debugger/debugattachdialog.pas
@@ -110,7 +110,7 @@ function EnumerateProcesses(AList: TRunningProcessInfoList): boolean;
   begin
     S := TFileStream.Create('/proc/' + IntToStr(Pid) + '/cmdline', fmOpenRead or fmShareDenyNone);
     try
-      SetLength(Result, 255);
+      SetLength(Result{%H-}, 255);
       Sz := S.Read(Result[1], 255);
       SetLength(Result, Sz);
     finally
diff --git a/debugger/pseudoterminaldlg.pp b/debugger/pseudoterminaldlg.pp
index 019b71ce91..8143fff387 100644
--- a/debugger/pseudoterminaldlg.pp
+++ b/debugger/pseudoterminaldlg.pp
@@ -416,7 +416,7 @@ var
     u: unicodestring;
 
   begin
-    SetLength(u, Length(str));
+    SetLength(u{%H-}, Length(str));
 
   (* This should probably be recoded to use a persistent table, but doing it    *)
   (* this way results in no lookup for plain text which is likely to be the     *)
@@ -551,7 +551,7 @@ var
     u: unicodestring;
 
   begin
-    SetLength(u, Length(str));
+    SetLength(u{%H-}, Length(str));
 
   (* This should probably be recoded to use a persistent table, but doing it    *)
   (* this way results in no lookup for plain text which is likely to be the     *)
diff --git a/ide/codeexplorer.pas b/ide/codeexplorer.pas
index 9402da6bff..84f8e8801a 100644
--- a/ide/codeexplorer.pas
+++ b/ide/codeexplorer.pas
@@ -134,7 +134,7 @@ type
     procedure CodeExplorerViewDestroy(Sender: TObject);
     procedure CodeFilterEditChange(Sender: TObject);
     procedure CodeTreeviewMouseDown(Sender: TObject; Button: TMouseButton;
-      Shift: TShiftState; X, Y: Integer);
+      {%H-}Shift: TShiftState; X, Y: Integer);
     procedure DirectivesFilterEditChange(Sender: TObject);
     procedure DirRefreshSpeedButtonClick(Sender: TObject);
     procedure FilterEditEnter(Sender: TObject);
diff --git a/ide/main.pp b/ide/main.pp
index b5e25cc9ef..b8333b76c8 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -5303,7 +5303,7 @@ end;
 
 procedure TMainIDE.PackageTranslated(APackage: TLazPackage);
 begin
-  //if APackage=PackageGraph.SynEditPackage then
+  if APackage=PackageGraph.SynEditPackage then ;
   //  EditorOpts.TranslateResourceStrings;  // ToDo
 end;
 
diff --git a/ide/sourcefilemanager.pas b/ide/sourcefilemanager.pas
index e33a72e0f3..e7484190fe 100644
--- a/ide/sourcefilemanager.pas
+++ b/ide/sourcefilemanager.pas
@@ -38,7 +38,7 @@ uses
   LResources, LCLMemManager,
   // LazUtils
   LConvEncoding, LazFileCache, FileUtil, LazFileUtils, LazLoggerBase, LazUtilities,
-  LazStringUtils, LazUTF8, LazTracer, AvgLvlTree,
+  LazUTF8, LazTracer, AvgLvlTree,
   // Codetools
   {$IFDEF IDE_MEM_CHECK}
   MemCheck,
diff --git a/packager/pkgvirtualuniteditor.pas b/packager/pkgvirtualuniteditor.pas
index b2a7887ce8..249bb230d5 100644
--- a/packager/pkgvirtualuniteditor.pas
+++ b/packager/pkgvirtualuniteditor.pas
@@ -68,7 +68,7 @@ begin
   Result:= mrCancel;
   if not Assigned(PkgFile) then exit;
 
-  SetLength(Str, 2);
+  SetLength(Str{%H-}, 2);
   Str[0]:= PkgFile.Filename;
   Str[1]:= PkgFile.Unit_Name;