procedure TDeepyPythonModule.ReleasePyObjects;
begin
  var aScript := TStringList.Create;
  try
    var aGlobals := GetPythonEngine.EvalString('globals()');
    var aKeys := GetPythonEngine.PyDict_Keys(aGlobals);
    try
      for var I := 0 to GetPythonEngine.PySequence_Length(aKeys) - 1 do
      begin
        var aKey := GetPythonEngine.PySequence_GetItem(aKeys, I);
        if aKey <> nil then
        try
          var aValue := GetPythonEngine.PyDict_GetItem(aGlobals, aKey);
          for var aPair in fPyDelphiObjects do
            if aPair.Value = aValue then
            begin
              var aKeyStr := GetPythonEngine.PyUnicodeAsString(aKey);
              aScript.Add('del ' + aKeyStr);
              Break;
            end;
        finally
          GetPythonEngine.Py_DECREF(aKey);
        end;
      end;
    finally
      GetPythonEngine.Py_xDECREF(aKeys);
      GetPythonEngine.Py_xDECREF(aGlobals);
    end;
    if aScript.Count > 0 then
      GetPythonEngine.ExecStrings(aScript);
  finally
    FreeAndNil(aScript);
  end;
end;