Reverse previous change.

Author: pyscripter

Source/PythonEngine.pas

@@ -8646,9 +8646,6 @@ procedure TPythonType.Finalize;
     Engine.Py_CLEAR(FCreateFunc);
   FCreateFunc := nil;
 
-  FType.tp_pythontype := nil;
-  Tag := 0; // TPyDelphiObject stores the default indexed property
-
   inherited;
 end;
 

Source/WrapDelphi.pas

@@ -3592,7 +3592,6 @@ class procedure TPyDelphiObject.SetupType(APythonType: TPythonType);
   APythonType.GenerateCreateFunction := False;
   APythonType.DocString.Text := 'Wrapper for Pascal class ' + DelphiObjectClass.ClassName;
   APythonType.Services.Basic := [bsGetAttrO, bsSetAttrO, bsRepr, bsStr, bsRichCompare];
-  _ContainerAccessClass := GetContainerAccessClass;
   if Assigned(_ContainerAccessClass) then
   begin
     APythonType.Services.Basic := APythonType.Services.Basic + [bsIter];
@@ -3910,6 +3909,7 @@ class procedure TPyDelphiObject.ExposeIndexedProperties(AClass: TClass;
   LDocStr: string;
 begin
   LRttiCtx := TRttiContext.Create();
+  APythonType.Tag := 0;  // may be assigned a default indexed property
   try
     LRttiType := LRttiCtx.GetType(AClass) as TRttiStructuredType;