Py_UseClassExceptionsFlag removed in Python 3.7

Not used since Python 2.

Author: pyscripter

PythonForDelphi/Components/Sources/Core/PythonEngine.pas

@@ -31,7 +31,7 @@
 (*      Stefan Hoffmeister ([email protected])                 *)
 (*      Michiel du Toit ([email protected]) - Lazarus Port              *)
 (*      Chris Nicolai ([email protected])                            *)
-(*      Kiriakos Vlahos ([email protected])                              *)
+(*      Kiriakos Vlahos ([email protected])                            *)
 (*      Andrey Gruzdev      ([email protected])                    *)
 (**************************************************************************)
 (* This source code is distributed with no WARRANTY, for no reason or use.*)
@@ -3581,9 +3581,9 @@ procedure TPythonInterface.MapDll;
   Py_InteractiveFlag         := Import('Py_InteractiveFlag');
   Py_OptimizeFlag            := Import('Py_OptimizeFlag');
   Py_NoSiteFlag              := Import('Py_NoSiteFlag');
-  Py_UseClassExceptionsFlag  := Import('Py_UseClassExceptionsFlag');
   Py_FrozenFlag              := Import('Py_FrozenFlag');
   if not IsPython3000 then begin
+    Py_UseClassExceptionsFlag  := Import('Py_UseClassExceptionsFlag');
     Py_TabcheckFlag            := Import('Py_TabcheckFlag');
     Py_UnicodeFlag             := Import('Py_UnicodeFlag');
   end;
@@ -4723,9 +4723,9 @@ procedure TPythonEngine.AssignPyFlags;
   SetFlag(Py_InteractiveFlag, pfInteractive in FPyFlags);
   SetFlag(Py_OptimizeFlag,    pfOptimize in FPyFlags);
   SetFlag(Py_NoSiteFlag,      pfNoSite in FPyFlags);
-  SetFlag(Py_UseClassExceptionsFlag, pfUseClassExceptionsFlag in FPyFlags);
   SetFlag(Py_FrozenFlag,      pfFrozenFlag in FPyFlags);
   if not IsPython3000 then begin
+    SetFlag(Py_UseClassExceptionsFlag, pfUseClassExceptionsFlag in FPyFlags);
     SetFlag(Py_UnicodeFlag,     pfUnicode in FPyFlags);
     SetFlag(Py_TabcheckFlag,    pfTabcheck in FPyFlags);
   end;