https://ideasawakened.github.io/post/tmonitor-event-stack-fix-by-a-true-delphi-mvp