Criar TabSheet em tempo de execução

Para criar o TabSheet em tempo de execução no Delphi, proceder da seguinte forma.

procedure Form1.CriarTabSheet;
Var
    TS  : TTabSheet;

begin
  TS := TTabSheet.Create(PageControl);
  TS.Caption := 'Exemplo de Criacao de TabSheet em tempo de Execução';
  TS.PageControl := PageControl;
end;