- remove unused variable

git-svn-id: trunk@37757 -

packages/rtl-objpas/src/inc/rtti.pp

@@ -758,7 +758,6 @@ end;
 
 function TRttiPool.GetType(ATypeInfo: PTypeInfo): TRttiType;
 var
-  i: integer;
   obj: TRttiObject;
 begin
   if not Assigned(ATypeInfo) then