Make compatible with fpc 3.2

Author: pyscripter

Source/VarPyth.pas

@@ -1676,13 +1676,16 @@ function TPythonVariantType.EvalPython(const V: TVarData;
         if not Assigned(_value) then
           raise Exception.Create(SCantConvertValueToPythonObject);
         if PyList_Check(AObject) then
-          _result := PyList_SetItem( AObject, Variant(AKey), _value )
+          _result := PyList_SetItem( AObject,
+            {$IFDEF FPC}PtrInt(Variant(AKey)){$ELSE}Variant(AKey){$ENDIF}, _value )
         else if PyTuple_Check(AObject) then
-          _result := PyTuple_SetItem( AObject, Variant(AKey), _value )
+          _result := PyTuple_SetItem( AObject,
+            {$IFDEF FPC}PtrInt(Variant(AKey)){$ELSE}Variant(AKey){$ENDIF}, _value )
         else
           try
             if PySequence_Check(AObject) <> 0 then
-              _result := PySequence_SetItem(AObject, Variant(AKey), _value)
+              _result := PySequence_SetItem(AObject,
+                {$IFDEF FPC}PtrInt(Variant(AKey)){$ELSE}Variant(AKey){$ENDIF}, _value)
             else
               _result := PyObject_SetItem( AObject, _key, _value );
           finally