* fix for bug #17325, an inc(i) was missing in aloop.

git-svn-id: trunk@15941 -

rtl/inc/variants.pp

@@ -2804,7 +2804,10 @@ begin
   I:=Low(AVarTypes);
   Result:=False;
   While Not Result and (I<=High(AVarTypes)) do
-    Result:=((TVarData(V).vType and varTypeMask)=AVarTypes[I]);
+    begin
+      Result:=((TVarData(V).vType and varTypeMask)=AVarTypes[I]);
+      inc(i);
+    end;
 end;