delphi - TPageControl の範囲外のリスト インデックス

Question

奇妙な動作を示す TPageControl で立ち往生しています..

コントロールには3ページありますが、そうすると

for I:=0 to PageControl.PageCount-1 do begin
  PageControl.Pages[I].TabVisible := False;
  PageControl.Pages[I].Visible    := Ord(iColorScale.GenerationMode) = I;
end;

に相当するループの最初の反復の最初の行を実行すると、「範囲外のリスト インデックス (3)」エラーが発生します。

PageControl.Pages[0].TabVisible := False;

ここで、デバッガーで PageControl プロパティを表示すると、すべてが正常に機能しているように見えます。PageCount は予想どおり 3 であり、ページ 0 の TabVisible を含むすべてのページとそのプロパティをエバリュエーターで確認できます。

Windows 7 マシンで Delphi XE を使用しています。私は途方に暮れています。