[[coso]]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
        Form2.FormStyle := fsNormal;
        Form2.Hide;
        Form2.SHowmodal;
        Form2.Hide;
        Form2.FormStyle := fsMDIChild;
end;

siendo Form1 MDIForm y Form2 MDIChild en tiempo de diseño, a mi este codigo me funciona...