diff --git a/components/synedit/lazsynedittext.pas b/components/synedit/lazsynedittext.pas
index 20d4f1d40b..fa0fe226e4 100644
--- a/components/synedit/lazsynedittext.pas
+++ b/components/synedit/lazsynedittext.pas
@@ -1145,7 +1145,7 @@ end;
 function TSynEditStrings.GetPhysicalCharWidths(Line: PChar; LineLen,
   Index: Integer): TPhysicalCharWidths;
 begin
-  SetLength(Result, LineLen);
+  SetLength(Result{%H-}, LineLen);
   if LineLen = 0 then
     exit;
   DoGetPhysicalCharWidths(Line, LineLen, Index, @Result[0]);
@@ -1202,7 +1202,7 @@ begin
       if not (p^ in [#10,#13]) then begin
         inc(p);
       end else begin
-        SetLength(s,p-StartPos);
+        SetLength(s{%H-},p-StartPos);
         if s<>'' then
           System.Move(StartPos^,s[1],length(s));
         sl.Add(s);
diff --git a/components/synedit/synedithighlighterfoldbase.pas b/components/synedit/synedithighlighterfoldbase.pas
index c42533105b..069a73abe2 100644
--- a/components/synedit/synedithighlighterfoldbase.pas
+++ b/components/synedit/synedithighlighterfoldbase.pas
@@ -1514,13 +1514,13 @@ begin
       GrpLow := FFoldGroup;
       GrpHigh := FFoldGroup;
     end;
-    SetLength(OpenCnt, FGroupCount);
+    SetLength(OpenCnt{%H-}, FGroupCount);
     for Grp := 0 to FGroupCount - 1 do
       OpenCnt[Grp] := 0;
     ListCnt := FFoldNodeInfoList.Count;
     if ListCnt < 0 then
       exit;
-    SetLength(OpenIdx, FGroupCount, ListCnt);
+    SetLength(OpenIdx{%H-}, FGroupCount, ListCnt);
 
     for Grp := GrpLow to GrpHigh do begin
       (* Filtering group in the loop instead of the list only works, if 0 is the only special group
diff --git a/components/synedit/synedittexttabexpander.pas b/components/synedit/synedittexttabexpander.pas
index 95e39c066e..05be3f0ac0 100644
--- a/components/synedit/synedittexttabexpander.pas
+++ b/components/synedit/synedittexttabexpander.pas
@@ -591,7 +591,7 @@ begin
     TabData.SetLineInfo(Index, 0, False);
   end else begin
     i := length(Line);
-    SetLength(CharWidths, i);
+    SetLength(CharWidths{%H-}, i);
     DoGetPhysicalCharWidths(Pchar(Line), i, Index, @CharWidths[0]);
     Result := 0;
     for i := 0 to length(CharWidths)-1 do
diff --git a/components/synedit/synhighlighterpas.pp b/components/synedit/synhighlighterpas.pp
index c24f4667f4..d8e6805b7f 100644
--- a/components/synedit/synhighlighterpas.pp
+++ b/components/synedit/synhighlighterpas.pp
@@ -3393,7 +3393,7 @@ begin
     exit;
   end;
 
-  SetLength(s, Run - p);
+  SetLength(s{%H-}, Run - p);
   move(fLine[p], s[1], Run - p);
   if FPasDocWordList.IndexOf(LowerCase(s)) >= 0 then begin
     Result := fPasDocKeyWordAttri.IsEnabled;
@@ -4358,7 +4358,7 @@ var
   Len: LongInt;
 begin
   Len := Run - fTokenPos;
-  SetLength(Result,Len);
+  SetLength(Result{%H-},Len);
   if Len>0 then
     System.Move(fLine[fTokenPos],Result[1],Len);
 end;
diff --git a/components/synedit/synhighlighterposition.pas b/components/synedit/synhighlighterposition.pas
index 2becdf55fb..7a19e28d85 100644
--- a/components/synedit/synhighlighterposition.pas
+++ b/components/synedit/synhighlighterposition.pas
@@ -192,7 +192,7 @@ var
   Len: LongInt;
 begin
   Len := fTokenEnd - fTokenPos;
-  SetLength(Result,Len);
+  SetLength(Result{%H-},Len);
   System.Move(fLine[fTokenPos],Result[1],Len);
 end;
 
diff --git a/components/synedit/syntextmatesyn.pas b/components/synedit/syntextmatesyn.pas
index 7c2ec05099..ca04e230ee 100644
--- a/components/synedit/syntextmatesyn.pas
+++ b/components/synedit/syntextmatesyn.pas
@@ -5,11 +5,11 @@ unit SynTextMateSyn;
 interface
 
 uses
-  Classes, SysUtils, fgl, Math,
+  Classes, SysUtils, fgl,
   jsonparser, jsonscanner, fpjson,
   // LazUtils
   LazFileUtils,
-  Laz2_XMLRead, PList2JSon, Laz2_DOM, LazStringUtils,
+  Laz2_XMLRead, Laz2_DOM, LazStringUtils,
   // LazEdit
   TextMateGrammar,
   // SynEdit
@@ -184,7 +184,7 @@ var
   i: Integer;
 begin
   GetRange;
-  i := Integer(TSynHighlighterTextMateRangeList(CurrentRanges).Range[Index]);
+  i := {%H-}Integer(TSynHighlighterTextMateRangeList(CurrentRanges).Range[Index]);
   if i <> FCurrentRange then
     FTextMateGrammar.MainPatternList[i].DecRefCount;