晕，delphi 内部异常，咋整啊

晕，delphi 内部错误，咋整啊？？？
光标一直停在过程函数的End;处，错误提示是：
[Fatal] unit1.pas[3498]:internal error :C1140

把这个过程剪切了换到其他地方的话，这个过程函数没有问题了，而其他的处在3495行附近的过程函数就会出现这个问题，这个是什么情况啊，郁闷的很，高手解答下吧。不胜感激

------解决方案--------------------
threadvar 为double内型时，不能直接比较。