delphi - 关闭运行时 createddd TTabItem

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;