procedure TForm1.Button3Click(Sender: TObject);
var
  v, NewClas: TPtr;
begin
  with CurrentPHP do
  begin
    v := RegPHPClass('PHPClassTest'); // Инициализируем контейнер класса

    zend_register_function(v, 'TestFunc', @functionCall);
    zend_register_function(v, 'TestFunc1', @functionCall2);
    zend_register_function(v, 'TestFunc2', @functionCall3);

    // Добавим в него константы
    zend_declare_class_constant(v, 'constNull');
    zend_declare_class_constant(v, 'constLong', 2020);
    zend_declare_class_constant(v, 'constBool', True);
    zend_declare_class_constant(v, 'constDouble', Double(Pi));
    zend_declare_class_constant(v, 'constString', 'const set String');

    // Добавляем Protected свойства  PHPClassTest::ProtectedNull
    zend_declare_property(v, 'ProtectedNull', ZEND_ACC_PROTECTED);
    zend_declare_property(v, 'ProtectedLong', 2020, ZEND_ACC_PROTECTED);
    zend_declare_property(v, 'ProtectedBool', True, ZEND_ACC_PROTECTED);
    zend_declare_property(v, 'ProtectedDouble', Double(Pi), ZEND_ACC_PROTECTED);
    zend_declare_property(v, 'ProtectedString', 'Protected set String', ZEND_ACC_PROTECTED);

    // Cтатические переменные класса PHPClassTest::$StaticNull
    zend_declare_property(v, 'StaticNull', ZEND_ACC_STATIC);
    zend_declare_property(v, 'StaticLong', 2020, ZEND_ACC_STATIC);
    zend_declare_property(v, 'StaticBool', false, ZEND_ACC_STATIC);
    zend_declare_property(v, 'StaticDouble', Double(Pi), ZEND_ACC_STATIC);
    zend_declare_property(v, 'StaticString', 'Static set String', ZEND_ACC_STATIC);

    // Пробуем обновить static свойства
    zend_update_static_property(v, 'StaticNull');
    zend_update_static_property(v, 'StaticLong', 2095);
    zend_update_static_property(v, 'StaticBool', True);
    zend_update_static_property(v, 'StaticDouble', 2095.08);
    zend_update_static_property(v, 'StaticString', 'Static update String ');

    // Теперь хочу создать класс, и заполнить его переменными
    NewClas := NewPzval; // Создадим контейнер
    object_init_ex(NewClas, v); // Иницилизируем новый класс

    // Будем просто обновлять переменные в классе. Тем самыим добавляя значения
    zend_update_property(v, NewClas, 'UpdateNull');
    zend_update_property(v, NewClas, 'UpdateLong', 2020);
    zend_update_property(v, NewClas, 'UpdateBool', True);
    zend_update_property(v, NewClas, 'UpdateDouble', Double(Pi));
    zend_update_property(v, NewClas, 'UpdateString', 'Hello');

    // Вывод
    EvalCode('print_r(["StaticNull" => PHPClassTest::$StaticNull, "StaticLong" => PHPClassTest::$StaticLong, ' +
      ' "StaticBool" => PHPClassTest::$StaticBool, "StaticDouble" => PHPClassTest::$StaticDouble, ' +
      ' "StaticString" => PHPClassTest::$StaticString, "constNull" => PHPClassTest::constNull, "constLong" => PHPClassTest::constLong, ' +
      '"constBool" => PHPClassTest::constBool , "constDouble" => PHPClassTest::constDouble, "constString" => PHPClassTest::constString, "' +
      print_r(NewClas, 1) + '"]); ', nil, 'Test Runner', 1);

  end;
end;