Form MDIChild

[Paulao]

Tengo un problema. No consigo cargar mi Form MDIChild. Tengo un padre del tipo fsMDIForm y otro fsMDIChild. Tengo esta procedure para crear los forms:

Código Delphi [-]
procedure TFRM_Principal.Lonily(InstanceClass: TComponentClass; var Reference);
var
   iI: Integer;
begin
  for iI := 0 to MDIChildCount - 1 do
  begin
    if MDIChildren[iI].ClassName = InstanceClass.ClassName then
    begin
      MDIChildren[iI].WindowState := wsNormal;
      MDIChildren[iI].Show;
      Exit;
    end;
  end;
  Application.CreateForm( InstanceClass, Reference );
end;

Y los llamos asi:

Código Delphi [-]
Lonily(TFrmEmpresa,FrmEmpresa);

Pero el Form no carga en mi aplicativo. Que puede estar errado?
Yo tambien llamo sin la procedure pero no carga todavia. Gratos a todos desde ahora.