I want know why my callback function not is executed

Win10 Trouble... i think.
The (corrected) C++ example works on my Windows 10, but the Delphi code crashes somewhere inside
MagSetWindowSource
(breakpoint inside callback does not trigger) - again, only if I set the callback.