Optimizando Creación de Formularios MDI

[[Chris]]

Gracias por la observación jachguate tienes toda la razón. Nunca había probado el código hasta después de lo que me comentastes. Ya lo he reparado -según yo-

Código Delphi [-]
Procedure TMainForm.CreateOrRestoreForm(var aForm : TForm; aFormClass : TFormClass);
Begin
  if not Assigned(aForm) Then begin
    aForm := aFormClass.Create(Application);
    aForm.Show;
  end
  else begin
    if aForm.WindowState = wsMinimized then
        aForm.WindowState := wsNormal;
    aForm.BringToFront;
  end;
end;

Para llamarlo así:

Código Delphi [-]
CreateOrRestoreForm(TForm(Form2), TForm2);

Saludos.