Fix pyscripter#313 (XE2 compatibility)

Author: pyscripter

Source/WrapDelphi.pas

@@ -2786,11 +2786,11 @@ function TPyDelphiMethodObject.Call(ob1, ob2: PPyObject): PPyObject;
     Num: Int64;
   begin
     Result := False;
-    if (RttiParam.ParamType = nil) or (RttiParam.ParamType.Handle = nil) or (RttiParam.ParamType.Handle.TypeData = nil) then
+    if (RttiParam.ParamType = nil) or (RttiParam.ParamType.Handle = nil) or (GetTypeData(RttiParam.ParamType.Handle)) = nil) then
       Exit;
-    elType := RttiParam.ParamType.Handle.TypeData.elType;
+    elType := GetTypeData(RttiParam.ParamType.Handle).elType;
     if elType = nil then
-      elType := RttiParam.ParamType.Handle.TypeData.elType2;
+      elType := GetTypeData(RttiParam.ParamType.Handle).elType2;
     if elType = nil then
       Exit;