Erro ao chamar MDIChild

   Application.Initialize;
   Application.CreateForm(TForm2, Form2); //form com o aliase
                                                             //Outros forms
   Application.CreateForm(TForm1, Form1);
  Application.Run;

procedure TFormAtual.Button1Click(Sender: TObject);
begin
FormPrincipal.Show;
freeandnil(formatual); 
end;

procedure TFormLogin.Button1Click(Sender: TObject);
begin
se senha correta
begin
  FormPrincipal.Show;
  freeandnil(formaLogin); 
end
else
  application.terminate;
end;

1)No evento onshow deles escreva o seguinte código:
 DeleteMenu(GetSystemMenu(Handle, False), SC_MOVE, MF_BYCOMMAND);//Nao deixa arrastar o form

2) Não deixe propriedade que permitem minimizar estes forms.. 
No objecto inspector va em BorderIcons e escolha BiMiniminize e BiMaximize cetado em false...

3) No evento onclose desses formulários que antecedem o Principal
escrever o seguinte...
application.terminate;

4) Note que a posição e o tamanho desse form que antecedem o Formulário Principal, deve ser cuidadosamenente estudado , para não dar um efeito visual desagradavel

5)Dica.. como o form de login geralmente é  é pequeno , sugiro que ele seje parte de outro form, se quiser de passo uma dica show para criaçõa desse form de login

6) porque to preocupado com essas dicas... Rode a aplicação sem esse passos e voce ira perceber que com oo formPrincipal foi criado , voce podera acessa-lo .. ja que  o formularios anteriores , não podem ser criados na formashowmodal

7) Todas esses passos puderiam ser evitados se voce estivesse trabalhando com o modo clássico na criação e destruição dos formulário MDI...

procedure AbreForm(FormClasse: TComponentClass; NomeForm:TForm);
begin
  Application.Createform(FormClasse, NomeForm);
  NomeForm.FormStyle := fsMDIChild;
  NomeForm.BorderStyle := bsSizeable;
  NomeForm.Position := poMainFormCenter;
  NomeForm.PrintScale := poProportional;
  NomeForm.WindowState := wsMaximized;
  NomeForm.Visible := true;
  try
    NomeForm.Show;
  finally
    NomeForm.Free;
  end;
end;

function ChecaForm(aForm: Tform): Boolean;
var
I:Integer;
begin
    ChecaForm := false;
    for I := 0 to Screen.FormCount -1 do
    if Screen.Forms[i] = aForm then
    begin
    ChecaForm := true;
    Break;
    end;
end;  (* ChecaForm *)

   
if ChecaForm(FrmExibeRecados) then
    begin
      FrmExibeRecados.BringToFront;
      FrmExibeRecados.Focused;
    end
   else
    begin
      FrmExibeRecados := TFrmExibeRecados.Create(nil);
      FrmExibeRecados.BringToFront;
      FrmExibeRecados.Focused;
    end;
  end;

 Action := CaFree;

  NomeForm := FormClasse.create(nil); 

  
  if not ChecaForm(fmMtFornec) then
    fmMtFornec := TFmMtFornec.create(nil);
  fmMtFornec.BringToFront;
  fmMtFornec.Focused;