delphi - ランタイムを閉じる

Question

ここで、実行時に作成された TTabItems を使用して、いくつかのヘルプを使用できます。タブに閉じるボタンを実行時に作成し、タブを閉じるためのイベントが発生しました。システムは Firemonkey で構築されています。ユーザーが閉じるボタンを押す瞬間まで、すべてがうまく機能します。現在のタブ項目は知っていますが、タブを離して別のタブをアクティブにしようとすると、AV が発生しました。タブを閉じるための小さなコード。

procedure TfrmMain.CloseButton(Sender: TObject);
begin
  pgeMain.ActiveTab.Index := currentTabIndex;
  if currentTabIndex > 0 then
    pgeMain.Tabs[currentTabIndex].Release();
  currentTabIndex := pgeMain.TabCount - 1;
end;