请问大侠们，TpageControl 怎么才能动态加 TAB啊？急！谢了！

Question

每按一下Button1增加5个Tab：
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  with PageControl1 do
    for i := 0 to 5 do
      with TTabSheet.Create(Self) do
      begin
        PageControl := PageControl1;
        Pages[i].TabVisible := (i mod 2 = 0);
        Caption := 'PageIndex: ' +
        IntToStr(Pages[i].PageIndex) + '  TabIndex: ' +
          IntToStr(Pages[i].TabIndex);
      end;
end;