Delphi中Pagecontrol的问题

我想要在用户换页时进行判断，是依据一定的条件来决定是否允许用户更换到其它的tabsheet，可是在其change事件中写的代码总是在更换了tabsheet后才被激活。这个判断语句应该写在什么地方？如何控制pagecontrol是否可以换页？