1.创建一个页面控件TPageControl。
1.增加7页。
1.创建你的7种形式。
1.将每个表单添加到其标签表中。
最后一步如下：

Form1.Parent := TabSheet1;
Form1.Align := alClient;
Form1.BorderStyle := bsNone;
Form1.ParentBackground := True;

由于您要对7个表单和7个标签表执行此操作，因此您需要在数组中执行此操作，并将上面的代码提取到一个方法中。

一个简单的方法是使用ManualDock：

var
 i:Integer;
begin
    // caption of then new tab sheet will be the caption of the form

    Form2.ManualDock(Pagecontrol1);
    Form2.Show;

    // or as loop
    for I := 0 to 5 do
        begin
          With TForm2.Create(self) do
            begin

                ManualDock(Pagecontrol1);
                Show;
            end;
        end;
     Pagecontrol1.ActivePageIndex := 0;
end;

代替表单，将它们变成单独的框架，然后在TPageControl对象的单独标签中使用TFrame组件来生成您想要的标签布局。