Demo31 raise AV exception (D13)

[floating-clouds]

Run the demo31 got AV exception, nil object of DelphiObject in WrapDelphi.pas line 3758.
The python test case code

def testCreateComponent(self):
    NewButton = CreateComponent('TButton', None)
    self.assertEqual(NewButton.__bound__, True)
    self.assertEqual(NewButton.__owned__, True)
    NewButton.Free()
    self.assertEqual(NewButton.__bound__, False)

python version min-python3-windows-3.12.7-amd64