TabSheet.Freeをすると親のTPageControlのActivePageが一瞬、
Pages[0]になった後にまた元のActivePageになるが嫌なんですが、
この現象を止めるにはどうしたらいいんでしょうか？