跳出一个块时有没有一种安全的方法来清理基于堆栈的代码？

I've been working on Issue 14 on the PascalScript scripting engine, in which using a Goto command to jump out of a Case block produces a compiler error, even though this is perfectly valid (if ugly) Object Pascal code. on the PascalScri