RegisterCustomVariantType: initialize the customvariant array to the correct length before assigning new value

git-svn-id: trunk@36343 -

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

@@ -3897,7 +3897,7 @@ begin
 
     index:=RequestedVarType-CMinVarType;
     if index>=L then
-      SetLength(customvarianttypes,L+1);
+      SetLength(customvarianttypes,index+1);
     if Assigned(customvarianttypes[index]) then
     begin
       if customvarianttypes[index]=InvalidCustomVariantType then