diff --git a/components/lazutils/lazfilecache.pas b/components/lazutils/lazfilecache.pas
index 3e3fc18210..5cd4fa8d7d 100644
--- a/components/lazutils/lazfilecache.pas
+++ b/components/lazutils/lazfilecache.pas
@@ -72,7 +72,7 @@ type
     function FileIsWritableCached(const AFilename: string): boolean;
     function FileIsTextCached(const AFilename: string): boolean;
     function FileAgeCached(const AFileName: string): Longint;
-    function GetPhysicalFilenameCached(const AFileName: string; EmptyOnError: boolean): string;
+    function GetPhysicalFilenameCached(const AFileName: string; {%H-}EmptyOnError: boolean): string;
     function FindFile(const Filename: string;
                       CreateIfNotExists: boolean): TFileStateCacheItem;
     function Check(const Filename: string; AFlag: TFileStateCacheItemFlag;
diff --git a/components/lazutils/lazfileutils.pas b/components/lazutils/lazfileutils.pas
index 7cb582248c..efeb1f9191 100644
--- a/components/lazutils/lazfileutils.pas
+++ b/components/lazutils/lazfileutils.pas
@@ -106,7 +106,7 @@ Function FileCreateUtf8(Const FileName : String; ShareMode : Integer; Rights : C
 function FileSizeUtf8(const Filename: string): int64;
 function GetFileDescription(const AFilename: string): string;
 function ReadAllLinks(const Filename: string;
-                      ExceptionOnError: boolean): string; // if a link is broken returns ''
+                 {%H-}ExceptionOnError: boolean): string; // if a link is broken returns ''
 function TryReadAllLinks(const Filename: string): string; // if a link is broken returns Filename
 function GetShellLinkTarget(const FileName: string): string;
 
diff --git a/components/lazutils/lazlistclasses.pas b/components/lazutils/lazlistclasses.pas
index d754c8cd44..89267c44f5 100644
--- a/components/lazutils/lazlistclasses.pas
+++ b/components/lazutils/lazlistclasses.pas
@@ -174,7 +174,7 @@ type
     function GetCount: Integer; inline;
   protected
     function GrowCapacity(ARequired: Integer): Integer;
-    function ShrinkCapacity(ARequired: Integer): Integer;
+    function ShrinkCapacity({%H-}ARequired: Integer): Integer;
 
     procedure SetCapacityEx(AValue, AnInsertPos, AnInsertSize: Integer);
     procedure InsertRowsEx(AIndex, ACount: Integer; AGrowProc: TLazStorageMemGrowProc);
@@ -232,7 +232,7 @@ type
   generic TLazFixedRoundBufferListMemBase<TPItemT, TSizeT> = object(specialize TLazRoundBufferListMemBase<TPItemT, TSizeT>)
   protected
     function GrowCapacity(ARequired: Integer): Integer;
-    function ShrinkCapacity(ARequired: Integer): Integer;
+    function ShrinkCapacity({%H-}ARequired: Integer): Integer;
     property Mem: TLazListClassesInternalMem read FMem;
   public
     procedure Create(AItemSize: TSizeT; ACapacity: Integer);