Как переопределить родителя для дочерних окон мди-приложения?

procedure TMainForm.FormCreate(Sender: TObject); // При создании MDIParent-формы
begin
   Windows.SetParent(Panel1.Handle, Self.ClientHandle);
   Panel1.Align := alClient; // После назначения родителя !!!
end;

type
    // ...
  private
    { Private declarations }
    FOldWndProc: TWndMethod;
    procedure NewWndProc(var Msg : TMessage);
 
    // ...
  public
    { Public declarations }
  end;
 
// ...
 
procedure TMainForm.FormCreate(Sender: TObject);
begin
   Windows.SetParent(DesktopPanel.Handle, Self.ClientHandle);
   DesktopPanel.Align := alClient;
 
   FOldWndProc := DesktopPanel.WindowProc;
   DesktopPanel.WindowProc := NewWndProc;
end;
 
procedure TMainForm.FormDestroy(Sender: TObject);
begin
   DesktopPanel.WindowProc := FOldWndProc;
end;
 
procedure TMainForm.NewWndProc(var Msg: TMessage);
begin
   case Msg.Msg of
   WM_WINDOWPOSCHANGING:
      PWindowPos(Msg.LParam)^.hwndInsertAfter := HWND_BOTTOM;
   end;
   FOldWndProc(Msg);
end;