Frame, TabSheet и их Free/Destroy кнопкой на форме

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, dxSkinsCore, dxSkinCaramel, dxSkinCoffee,
  dxSkinscxPCPainter, dxBarBuiltInMenu, Vcl.Menus, cxPC, Vcl.StdCtrls,
  cxButtons;
 
type
  TForm1 = class(TForm)
    cxPageControl1: TcxPageControl;
    cxButton1: TcxButton;
    cxButton2: TcxButton;
    cxTabSheet1: TcxTabSheet;
    procedure cxButton1Click(Sender: TObject);
    procedure cxButton2Click(Sender: TObject);
    procedure test;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  f: TFrame;
 
implementation
 
{$R *.dfm}
 
uses FrameUnit;
 
procedure TForm1.cxButton1Click(Sender: TObject);
Var
  nTab: TcxTabSheet;
  n: string;
  page_index: Integer;
begin
  page_index := cxPageControl1.PageCount + 1;
  nTab := TcxTabSheet.Create(cxPageControl1);
  with nTab do
  begin
    n := 'Page_' + IntToStr(page_index);
    PageControl := cxPageControl1;
    Tag := cxPageControl1.PageCount + 1; // Mark for enable to close tab
    Name := n;
    Caption := n;
    // if f <> nil then
    // begin
    // FreeAndNil(f);
    // end;
    f := TFrameFrm.Create(nTab);
    f.Parent := nTab;
    f.Align := alClient;
    f.Visible := true;
  end;
  // nTab.Free
end;
 
procedure TForm1.cxButton2Click(Sender: TObject);
begin
  test;
end;
 
procedure TForm1.test;
begin
  cxPageControl1.CloseTab(cxPageControl1.ActivePageIndex);
end;
 
end.

unit FrameUnit;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics,
  cxLookAndFeels, cxLookAndFeelPainters, Vcl.Menus, dxSkinsCore, dxSkinCaramel,
  dxSkinCoffee, Vcl.StdCtrls, cxButtons, cxControls, dxSkinscxPCPainter,
  dxBarBuiltInMenu, cxPC;
 
type
  TFrameFrm = class(TFrame)
    cxButton1: TcxButton;
    procedure cxButton1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
implementation
 
{$R *.dfm}
 
uses Unit1;
 
procedure TFrameFrm.cxButton1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Form1.test;
end;
 
end.

constructor TMyTabSheet.Create(AOwner: TComponent; APageControl: TPageControl);
begin
  inherited Create(AOwner);
  PageControl:= APageControl;
  Caption:= 'TabSheet' + IntToStr(PageIndex+1);
  FFrame:= TmyFrame.Create(Self);
  FFrame.Parent:= Self;
end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    PageControl1: TPageControl;
    ApplicationEvents1: TApplicationEvents;
    procedure Button1Click(Sender: TObject);
    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
    TabToFree: TTabSheet;
    procedure OnFrameCloseQuery(Sender: TObject);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  T: TTabSheet;
begin
  T := TTabSheet.Create(PageControl1);
  T.Parent := PageControl1;
  T.PageControl := PageControl1;
  T.Caption := 'Вкладка';
  with TFrame2.Create(T) do begin
    Parent := T;
    OnCloseQuery := OnFrameCloseQuery; // Обработчик запроса закрытия фрейма
  end;
end;
 
procedure TForm1.ApplicationEvents1Idle(Sender: TObject;
  var Done: Boolean);
begin
  // Событие OnIdle возникает после обработки каждого сообщения и если
  // имеется вкладка для удаления, то она удаляется
  if Assigned(TabToFree) then begin
    TabToFree.Free;
    TabToFree := nil;
  end;
end;
 
procedure TForm1.OnFrameCloseQuery(Sender: TObject);
begin
  // Обработчик запроса на закрытие фрейма.
  // Сохраняет в переменной адрес вкладки, которую нужно закрыть.
  if Sender is TFrame then
    TabToFree := (Sender as TFrame).Parent as TTabSheet;
end;
 
end.

type
  TFrame2 = class(TFrame)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    FCloseQuery: TNotifyEvent;
  public
    { Public declarations }
    // Добавил событие закрытия фрейма
    property OnCloseQuery: TNotifyEvent read FCloseQuery write FCloseQuery;
  end;
 
implementation
 
{$R *.dfm}
 
procedure TFrame2.Button1Click(Sender: TObject);
begin
  if Assigned(FCloseQuery) then FCloseQuery(Self);
end;
 
end.