Como fazer minha tela desta maneira?

  If Form1.PgC1.ActivePageIndex = 0 Then
  begin
    If Assigned(Form2) Then
    Form2.Show
    Else
    begin
      Form2 := TForm2.Create(nil);
      Form2.Parent := Form1.PgC1.Pages[0];
      Form2.Show;
    End;
  end;

begin
  with TForm2.Create(nil) do
  begin
    BorderStyle := bsNone;
    Align := alClient; // Sim, Align serve para alguma coisa em forms!
    Parent := TabSheet1;
    (Parent as TabSheet).Caption := Caption;
    Show;
  end;

with TForm2.Create(TabSheet1) do
...

begin 
  with TForm2.Create(nil) do 
  begin 
    BorderStyle := bsNone; 
    Align := alClient; // Sim, Align serve para alguma coisa em forms! 
    Parent := TabSheet1; 
    (Parent as TTabSheet).Caption := Caption; 
    Show; 
  end;

function CriaTab(_Tab: TPageControl; _Caption: string; _FormLink: TForm; const _ImgIdx: integer = 3; const _Focar: Boolean = True): Boolean;
var
 Idx, i: integer;
 Nome: string;
begin
 try
  IncluindoTab := True;

{-------------------------------------------------------------------------------
 -  Crio uma página no PageList Principal.
 -------------------------------------------------------------------------------}
  with FrmPrincipal do
  begin

   with TTabSheet.Create(nil) do
   begin
    PageControl := PgCtrlPrincipal;
   end;

   with _FormLink.Create(nil) do
   begin
    BorderStyle := bsNone;
    Align := alClient; // Sim, Align serve para alguma coisa em forms!
    Parent := PgCtrlPrincipal.Pages[PgCtrlPrincipal.PageCount - 1];
    (Parent as TTabSheet).Caption := _Caption;
    (Parent as TTabSheet).ImageIndex := 4;
    Show;
   end;
   PgCtrlPrincipal.Update;
  end;
  Application.ProcessMessages;
  IncluindoTab := False;
  Result := True;
 except
  Result := False;
 end;
end;

Form1 := TForm1.Create(nil);

procedure TFormPrincipal.CreateNewForm(FormClass: TFormClass);
var
  TabSheet: TTabSheet;
begin
  // Cria a aba no PageControl
  TabSheet := TTabSheet.Create(PageControl);
  TabSheet.PageControl := PageControl;

  // Cria o formulário e o colacamos dentro da TabSheet
  with FormClass.Create(TabSheet) do
  begin
    Align := alClient;
    BorderStyle := bsNone;
    Parent := TabSheet;
    TabSheet.Caption := Caption;
    TabSheet.ImageIndex := 0;
  end;

  // Exibe o form
  Form.Show;

  // Focamos na aba recém-criada
  PageControl.ActivePage := TabSheet;
end;

function TFormularioPrincipal.GetFormTabSheet(FormClass: TFormClass): TTabSheet;
var
  I: Integer;
begin
  Result := nil;
  with PageControl do
    for I := 0 to PageCount - 1 do
      if Pages[I].Components[0].ClassType = FormClass then
      begin
        Result := Pages[I];
        Break;
      end;
end;

procedure TFormularioPrincipal.CreateNewForm(FormClass: TFormClass);
var
  TabSheet: TTabSheet;
  TabObj: TComponent;
begin
  TabObj := GetFormTabSheet(FormClass);
  if Assigned(TabObj) then
  begin
    PageControl.ActivePage := TabObj as TTabSheet;
    Exit;
  end;
...
end;

procedure TFormPrincipal.CreateNewForm(FormClass: TFormClass); 
var 
  TabSheet: TTabSheet; 
begin 
  // Cria a aba no PageControl 
  TabSheet := TTabSheet.Create(PageControl); 
  TabSheet.PageControl := PageControl; 

  // Cria o formulário e o colacamos dentro da TabSheet 
  with FormClass.Create(TabSheet) do 
  begin 
    Align := alClient; 
    BorderStyle := bsNone; 
    Parent := TabSheet; 
    TabSheet.Caption := Caption; 
    TabSheet.ImageIndex := 0; 
  end; 

  // Exibe o form 
  Form.Show; 

  // Focamos na aba recém-criada 
  PageControl.ActivePage := TabSheet; 
end;

var
  ...
  Form: TCustomForm;
begin
 ...

  Form := FormClass.Create(TabSheet);
  with Form do
  ...
end;