diff --git a/src/libraries/regex/uregexpr.pas b/src/libraries/regex/uregexpr.pas
index 26609f368..b9e8f56c5 100644
--- a/src/libraries/regex/uregexpr.pas
+++ b/src/libraries/regex/uregexpr.pas
@@ -4257,7 +4257,10 @@ function TRegExpr.FindRepeated(p: PRegExprChar; AMax: integer): integer;
   TheMax: PtrInt; // PtrInt, gets diff of 2 pointers
   InvChar: REChar;
   CurStart, CurEnd: PRegExprChar;
-  ArrayIndex, i: integer;
+  ArrayIndex : integer;
+  {$IFDEF UnicodeEx}
+   i: integer;
+  {$ENDIF}
 begin
   Result := 0;
   scan := regInput; // points into InputString
@@ -5933,7 +5936,10 @@ procedure TRegExpr.FillFirstCharSet(prog: PRegExprChar);
   opnd: PRegExprChar;
   Oper: TREOp;
   ch: REChar;
-  min_cnt, i: integer;
+  min_cnt : integer;
+  {$IFDEF UseLineSep}
+  i: integer;
+  {$ENDIF}
   TempSet: TRegExprCharset;
 begin
   TempSet := [];