下面这段是动态生成TTabSheet的。生成可以。。但是我怎么按单独把它会一个个关闭呢？？按当前的TTabSheet关闭，怎么做？

Question

下面这段是动态生成TTabSheet的。生成可以。。但是我怎么按单独把它会一个个关闭呢？？按当前的TTabSheet关闭，怎么做？
unit Unit1; interface uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls,Shdocvw, ComCtrls; type 
  TForm1 = class(TForm) 
    PageControl1: TPageControl; 
    Button1: TButton; 
    procedure Button1Click(Sender: TObject); 
  private 
    { Private-Deklarationen } 
    Web : TWebBrowser; 
  public 
    { Public-Deklarationen } 
  end; var 
  Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); 
var 
  NewTab : TTabSheet; begin 
  NewTab:=TTabSheet.Create(Self); 
  NewTab.Visible := True; 
  NewTab.Caption := 'Browser'; 
  NewTab.PageControl := PageControl1; 
  Web:=TWebBrowser.Create(NewTab); 
  NewTab.InsertControl(Web); 
  Web.Align:=alClient; 
  Web.Navigate('http://business.3cts.com'); 
end; end. 

Answer 1

type
  TForm1 = class(TForm)
    Button1: TButton;
    PageControl1: TPageControl;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    NewTab : TTabSheet;  //*****
    web:TWebBrowser; 
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  NewTab:=TTabSheet.Create(Self);
  NewTab.Visible := True;
  NewTab.Caption := 'Browser';
  NewTab.PageControl := PageControl1;
  Web:=TWebBrowser.Create(NewTab);
  NewTab.InsertControl(Web);
  Web.Align:=alClient;
  Web.Navigate('http://business.3cts.com');
end; procedure TForm1.Button2Click(Sender: TObject);
begin
NewTab.Free;
end;