procedure TForm1.PassValuesToPython;
var
  PyValue: PPyObject;  // Python 对象指针
begin
  PythonEngine1.LoadDll;
  
  // 【第1段】创建 Python 整数
  PyValue := PythonEngine1.PyLong_FromLong(42);
  
  // 【第2段】将变量注入 Python 全局命名空间
  PythonEngine1.PyDict_SetItemString(
    PythonEngine1.GetMainModule.__dict__, 
    'delphi_number', 
    PyValue
  );
  
  // 【第3段】在 Python 中使用这个变量
  PythonEngine1.ExecString('print(f"Delphi传来的数字: {delphi_number}")');
  
  // 【第4段】释放 Python 对象（重要！防止内存泄漏）
  PythonEngine1.Py_DecRef(PyValue);
end;