abgeleitetest TTabsheet in ein Pagecontrol erzeugen

[Digielm]

Hallo Leute

Ich habe ein abgeleitetest TTabsheet gemacht und möchte das in ein Pagecontrol erzeugen. Das klappt auch soweit, aber auf meinem Tabsheet sind noch einige Elemente drauf, die aber nicht mit erzeugt werden. Warum das ??


der aufruf

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  test : Tform2;
begin
  test := TForm2.Create(self);
  test.Parent := PageControl1;
  test.PageControl := PageControl1;
end;

mein eigenes TTabsheet

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls;

type
  TForm2 = class(TTabsheet)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
     constructor Create( AOWner : TComponent); override;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

{ TForm2 }

constructor TForm2.Create(AOWner: TComponent);
begin
  inherited create(AOWner);

//  Parent := AOWner;

end;

end.

die Tabsheets die ich auf meinem Tabsheet hab werden nicht mit erzeugt weiß einer warum ?