Catch exceptions in Demo 33

Author: pyscripter

Demos/Demo33/SortThds.pas

@@ -127,15 +127,17 @@ procedure TSortThread.ExecuteWithPython;
       if Assigned(FModule) and (ThreadExecMode <> emNewState) then
         FModule.InitializeForNewInterpreter;
       if Assigned(fScript) then
+      try
         ExecStrings(fScript);
+      except
+      end;
       pyfunc :=  FindFunction(ExecModule, utf8encode(fpyfuncname));
       if Assigned(pyfunc) then
         try
           EvalFunction(pyfunc,[NativeInt(self),0,FSize]);
         except
         end;
-
-        Py_DecRef(pyfunc);
+      Py_XDecRef(pyfunc);
     end;
   finally
     running := false;