PageControl的使用问题(100分)

界面上有一个PageControl1，在它上面有一个TabSheet1，怎样新增一个TabSheet2并把TabSheet1上的控件也原样复制到TabSheet2上？

试试下面的方法：
procedure TfrmDemo.CopyTabSheet(Sender: TObject;
NewParent: TWinControl;
S: string);
begin
with TControlClass(Sender.ClassType).Create(Self)do
begin
Parent := NewParent;
Left := (Sender as TControl).Left;
Top := (Sender as TControl).Top;
Height := (Sender as TControl).Height;
Width := (Sender as TControl).Width;
Name := (Sender as TControl).Name + S;
end;
end;

procedure TfrmDemo.Button1Click(Sender: TObject);
var
i: Integer;
ts: TTabSheet;
begin
ts := TTabSheet.Create(Self);
ts.PageControl := PageControl1;
for i := 0 to TabSheet1.ControlCount - 1do

CopyTabSheet(TabSheet1.Controls, ts, IntToStr(i + 1));
end;

接受答案了.