procedure TForm1.Button1Click(Sender: TObject); var Sheet : TTabSheet; begin Sheet := TTabSheet.Create(Self); Sheet.PageControl := PageControl1; Sheet.Caption := 'bla-bla-bla'; end;