你一free，它会自动找将要remove掉Tab的下一个，并设置为当前激活tab，而不是使用你Free前设置的tab，如果是最后一个，就到0页了。

为什么非要free掉，可以先设置ActivePage，再设置要Free的TabVisible为false，但不Free，这样就不会触发RemovePage

Delphi有好多似乎很智能的自动处理的代码，包括对字符的处理，有时很恶心人。

比起来Lazarus虽然实现的简单，但行为却更容易控制一些。