Código Delphi [-] Form1 := ShowMDIChildForm(TForm1) as TForm1;
Form1 := ShowMDIChildForm(TForm1) as TForm1;