Access voilation delphi x64 with callback's

Question

I rewrite old code (x86 ~ 1998 year, delphi 7) on new standart (x64, Rad Studio XE 10.4). I find problem place, which stopped my work. I create minimum example, that you can