x64反射式DLL注入器Delphi版本运行崩溃问题求助

各位大佬，求帮忙看看这个棘手的问题！我现在需要一个用Delphi编写的x64反射式DLL注入器，之前找到了一个C语言版本的，用支持64位程序编译的DevC++处理后，运行完全正常。于是我参照这个C版本改成了Delphi版本——编译的时候一点问题都没有，连语法错误都没报，结果一执行注入操作，目标程序直接就崩溃了！

我自己做了些测试排查，发现在AdjustPE()函数里面，只要我尝试调用另一个函数（比如某个辅助处理PE结构的函数），就会触发崩溃的情况，这到底是哪里出问题了啊？

备注：内容来源于stack exchange，提问作者FLASHCODER