PageControl中的TabSheet(50分)

各位大侠好：
小弟有一事搞不明白：我通过程序向PageControl中添加了几个Tabsheet，
但我无论如何也不能把不用的Tabsheet删除，请问如删除？

选中你要删的TabSheet (注意选择TabSheet与选择PageControl的区别),然后按右键，点
Delete Page项。

同意ZHUMOO的说法：
选中你要删的TabSheet (注意选择TabSheet与选择PageControl的区别，在下面点中),然后按右键，点
Delete Page项。

谢谢你们,但我的意思是,通过程序添加TabSheet,然后再通过程序对添加的
Tabsheet进行删除.你们看可以做到吗?

可以，TabSheet1.Free不就可以了吗。

jiangxiancheng,谢谢,以后还会麻烦你的,不过我是个新手,分数不多了,
多乎哉,不多也!

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
Add: TButton;
Delete: TButton;
procedure AddClick(Sender: TObject);
procedure DeleteClick(Sender: TObject);
private
{ Private declarations }
TabSheet1: TTabSheet;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.AddClick(Sender: TObject);
begin
TabSheet1 := TTabSheet.Create(PageControl1);
TabSheet1.Caption :='1';
TabSheet1.PageControl := PageControl1;
TabSheet1.Visible := True;
end;
procedure TForm1.DeleteClick(Sender: TObject);
var
i: Integer;
ts: TTabSheet;
begin
for i := PageControl1.PageCount - 1do
wnto 0do
begin
ts := PageControl1.Pages;
ts.PageControl := nil;
ts.Free;
end;
end;
end.