关闭运行时创建了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;