diff --git a/components/codetools/linkscanner.pas b/components/codetools/linkscanner.pas
index 78bb53eace..f591fa566d 100644
--- a/components/codetools/linkscanner.pas
+++ b/components/codetools/linkscanner.pas
@@ -670,6 +670,7 @@ function dbgs(const ModeSwitches: TCompilerModeSwitches): string;
 var
   ms: TCompilerModeSwitch;
 begin
+  Result:='';
   for ms:=Low(TCompilerModeSwitches) to high(TCompilerModeSwitches) do
     if ms in ModeSwitches then begin
       Result:=Result+CompilerModeSwitchNames[ms]+',';
diff --git a/lcl/graphtype.pp b/lcl/graphtype.pp
index 0ada76cb6c..8d578b3bb3 100644
--- a/lcl/graphtype.pp
+++ b/lcl/graphtype.pp
@@ -907,7 +907,7 @@ end;
 
 function TRawImageDescription.GetDescriptionFromMask: TRawImageDescription;
 begin
-  Result.Init;
+  Result{%H-}.Init;
 
   Result.Format       := ricfGray;
   Result.Width        := Width;
@@ -934,7 +934,7 @@ end;
 
 function TRawImageDescription.GetDescriptionFromAlpha: TRawImageDescription;
 begin
-  Result.Init;
+  Result{%H-}.Init;
 
   Result.Format       := ricfGray;
   Result.Width        := Width;
diff --git a/lcl/intfgraphics.pas b/lcl/intfgraphics.pas
index 60816470b6..c78266e73c 100644
--- a/lcl/intfgraphics.pas
+++ b/lcl/intfgraphics.pas
@@ -820,7 +820,7 @@ end;
 function QueryDescription(AFlags: TRawImageQueryFlags; AWidth: Integer = -1; AHeight: integer = -1): TRawImageDescription;
 begin
   Exclude(AFlags, riqfUpdate);
-  Result.Init;
+  Result{%H-}.Init;
   QueryDescription(Result, AFlags, AWidth, AHeight);
 end;
 
@@ -838,7 +838,7 @@ end;
 
 function GetDescriptionFromDevice(ADC: HDC; AWidth, AHeight: integer): TRawImageDescription;
 begin
-  Result.Init;
+  Result{%H-}.Init;
   if not RawImage_DescriptionFromDevice(ADC, Result) then Exit;
   if AWidth <> -1 then Result.Width := AWidth;
   if AHeight <> -1 then Result.Height := AHeight;
@@ -846,7 +846,7 @@ end;
 
 function GetDescriptionFromBitmap(ABitmap: HBitmap; AWidth: Integer = -1; AHeight: integer = -1): TRawImageDescription;
 begin
-  Result.Init;
+  Result{%H-}.Init;
   if not RawImage_DescriptionFromBitmap(ABitmap, Result) then Exit;
   if AWidth <> -1 then Result.Width := AWidth;
   if AHeight <> -1 then Result.Height := AHeight;
diff --git a/lcl/widgetset/wsimglist.pp b/lcl/widgetset/wsimglist.pp
index 1708f835dd..cd4026a6b9 100644
--- a/lcl/widgetset/wsimglist.pp
+++ b/lcl/widgetset/wsimglist.pp
@@ -173,7 +173,7 @@ var
   i: integer;
 begin
   impl := TDefaultImageListImplementor.Create(AList);
-  Result._Init(impl);
+  Result{%H-}._Init(impl);
 
   if AData <> nil then
   begin