procedure TForm1.FormCreate(Sender: TObject);
begin
  FPgCtrl:= TPageControl.Create(Self);
  with FPgCtrl do
  begin
    Left:= 10;
    Top:= 10;
    width:= Self.Width - 10;
    Height:= Self.Height - 20;
    Parent:= TWinControl(Self);
    AddTabSheet;
    Page[0].Caption:= '0001';

    FBtn:= TButton.Create(Self);
    with FBtn do begin
      Parent:= TWinControl(Page[0]);
      Left:= 10;
      Top:= 10;
      Caption:= 'Button';
    end;

    AddTabSheet;
    Page[1].Caption:= '0002';
    fLbl:= TLabel.Create(Self);
    with fLbl do
    begin
      Parent:= TWinControl(Page[1]);
      Caption:= 'Label';
      Left:= 10;
      Top:= 10;
    end;

    AddTabSheet;
    Page[2].Caption:= '0003';

    fMemo:= TMemo.Create(Self);
    with fMemo do
    begin
      Parent:= TWinControl(Page[2]);
      Top:= 10;
      Left:= 10;
      Width:= 100;
      Height:= 100;
      Text:= 'memo';
    end;

    PageIndex:= 0;
  end;
end;