Form2.Parent := Form1;

function TForm.MyShowModal(const ModalCaler:TCustomForm=nil):integer;
var
 ActiveWindow: HWnd;
 p_WINDOW:Forms.TForm;
begin
  if Owner=nil then p_WINDOW:=Screen.ActiveForm else p_WINDOW:=Tform(owner); // если родитель не указан блочим активную форму
  ActiveWindow := GetActiveWindow;                                           // запоминаем активное окно
  if ModalCaler<>nil  then modalform:=ModalCaler else modalform:=TForm(p_WINDOW);

  EnableWindow(p_WINDOW.Handle,False); // дисаблим активное окно
  ModalResult:=0;
  RecreateWnd;                         // честно не помню зачем
  Include(FFormState, fsModal);        // вновь открытому окну ставим флаг что оно все же модельное как бы
  Show;                                // показываем текущее окно 
  try
    SendMessage(self.Handle, CM_ACTIVATE, 0, 0); // ставим ему флаг что оно активировано 
    repeat                             // далее по аналогии с ShowModal крутимся в цикле пока основная форма работает, при этом так же работуют и остальные формы кроме той что под нами.
      Application.HandleMessage;
      if (Application.Terminated)or(not visible) then ModalResult:=mrCancel else
      if ModalResult<>0 then begin CloseModal;Break;end
    until ModalResult<>0;
    Result:=ModalResult;
    SendMessage(Handle, CM_DEACTIVATE, 0, 0);// по выходу из цикла декактивируем текущую форму 
    modalform:=nil;
  finally
    Hide; // прячем текущую форму
  end;
  Exclude(FFormState, fsModal);
  EnableWindow(p_WINDOW.Handle,true); // активируем форму что была под нашей
  if GetActiveWindow=self.Handle then SetActiveWindow(ActiveWindow);// и активируем ту что под нами, в целом делаем все тоже что делает ShowModal но только с одной формой а не со всеми.
end;

 f3:=TForm3.Create(self);
 f3.MyShowmodal;
 f3.free;