type
  TSingleton = class
  private
    class var Instance: TSingleton;
  public
    class function NewInstance: TObject; override;
  end;
   
class function TSingleton.NewInstance: TObject;
begin
   if Instance = nil then
      Instance := TSingleton(inherited NewInstance);
   Result := Instance;
end;

type
  TChildMenuClick = procedure (Sender: TObject) of object;

  TFormManager = class
  strict private
    class var
      FInstance: TFormManager;
  private
    FForms: TList<TForm>;
    [Weak] FChildMenu: TMenuItem;
    FChildMenuClick: TChildMenuClick;
  public
    class function GetInstance: TFormManager;
    class procedure FreeInstance;

    procedure AddMainForm(Form: TForm);
    procedure DelMainForm(Form: TForm);
    function GetMainForm(hWhd: THandle): TForm;

    procedure RebuildMainMenu;
    procedure RebuildSysMenu; overload;
    procedure RebuildSysMenu(Sender: TForm); overload;

    property Forms: TList<TForm> read FForms;
    property ChildMenu: TMenuItem read FChildMenu write FChildMenu;
    property ChildMenuClick: TChildMenuClick read FChildMenuClick write FChildMenuClick;
  end;

implementation

{ TFormManager }

class function TFormManager.GetInstance: TFormManager;
begin
   if not Assigned(FInstance) then
   begin
      FInstance := TFormManager.Create;
      FInstance.FForms := TList<TForm>.Create;
   end;
   Result := FInstance;
end;

class procedure TFormManager.FreeInstance;
begin
   if Assigned(FInstance) and (FInstance.FForms.Count = 1) then
   begin
      FInstance.FForms.Free;
      FreeAndNil(FInstance);
   end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
   TFormManager.GetInstance.ChildMenu := NChildForms;
   TFormManager.GetInstance.ChildMenuClick := NChildClick;
end;

procedure TTemplateMainForm.FormShow(Sender: TObject);
begin
   TFormManager.GetInstance.AddMainForm(Self);
end;

procedure TMainForm.NAddMainFormClick(Sender: TObject);
const
  {$J+}
  FormIndex: Cardinal = 0;
  {$J-}
begin
   Inc(FormIndex);
   with TDuplicateMainForm.Create(Application.MainForm) do
   begin
      Caption := Format('Дополнительная форма [%d]', [FormIndex]);
      Show;
   end;
end;

procedure TMainForm.NChildClick(Sender: TObject);
var
  Frm: TForm;
begin
   // Создаем окно на Application.MainForm…
   ChildForm := TChildForm.Create(Application.MainForm);

   // …и при необходимости переносим на нужную форму
   if (Sender as TMenuItem).Tag > 0 then
   begin
      Frm := Application.MainForm;
      Pointer((@Application.MainForm)^) := TFormManager.GetInstance.Forms[(Sender as TMenuItem).Tag];
      ChildForm.ParentWindow := Application.MainForm.Handle;
      ChildForm.Perform(CM_RECREATEWND, 0, 0);
      Pointer((@Application.MainForm)^) := Frm;
   end
   else
      ChildForm.ParentWindow := Application.MainForm.Handle;

   TFormManager.GetInstance.RebuildSysMenu(ChildForm);
end;

// Код в шаблоне дочерней формы
procedure TTemplateChildForm.WndProc(var Msg: TMessage);
var
  Frm: TForm;
begin
   case Msg.Msg of
      WM_SYSCOMMAND: begin
         // При выборе системного меню формы мы получаем сообщение WM_SYSCOMMAND,
         // WParam которого содержит ID пункта меню, являющегося еще и индексом
         // формы, на которую нужно "перекинуть" дочернее окно
         if Msg.WParamLo <= 500 then
         begin
            if Msg.WParamLo > 0 then
            begin
               Frm := Application.MainForm;
               Pointer((@Application.MainForm)^) := TFormManager.GetInstance.Forms[Msg.WParamLo];
            end;

            ParentWindow := Application.MainForm.Handle;
            RecreateWnd;
            TFormManager.GetInstance.RebuildSysMenu(Self);

            if Msg.WParamLo > 0 then
               Pointer((@Application.MainForm)^) := Frm;
         end;
      end;
   end;

   inherited;
end;

// Код в шаблоне главной формы
procedure TTemplateMainForm.FormDestroy(Sender: TObject);
var
  i: Integer;
begin
   if Assigned(Application.MainForm) and (Self <> Application.MainForm) then
   begin // Закрытие дополнительой главной формы
      // Закрываем все дочерние формы
      for i := 0 to Application.MainForm.MDIChildCount-1 do
         if Self.MDIChildren[i].ParentWindow = Handle then
            Self.MDIChildren[i].Close;

      TFormManager.GetInstance.DelMainForm(Self);
   end;
end;

// Код в шаблоне дочерней формы
procedure TTemplateChildForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
var
  i: Integer;
  Frm: TForm;
begin
   Frm := TFormManager.GetInstance.GetMainForm(ParentWindow);

   if not Assigned(Frm) then
      raise Exception.Create('Родительская форма не найдена.');

   if not (csDestroying in Frm.ComponentState) then
      // Если подьзователь сам закрывает доченюю форму, грохаем ее…
      Action := caFree
   else
   begin
      // …иначе (если закрывается родительская форма), переносим ее на главную
      Action := caNone;

      ParentWindow := Application.MainForm.Handle;
      RecreateWnd;
      TFormManager.GetInstance.RebuildSysMenu(Self);
   end;
end;