diff --git a/packages/rtl/src/rtti.pas b/packages/rtl/src/rtti.pas
index e3b800b..a0d28aa 100644
--- a/packages/rtl/src/rtti.pas
+++ b/packages/rtl/src/rtti.pas
@@ -1953,9 +1953,6 @@ begin
 end;
 
 function TRttiArrayType.GetDimension(aIndex: SizeInt): TRttiType;
-Var
-  I : Integer;
-  Res : TRttiType;
 
 begin
   if (aIndex >= DimensionCount) then