Problemas con el form de Inicio de Sesión

[rubio]

Hola de nuevo, en el hilo anterior no me expliqué bien, la respuesta del moderador me ayudó, pero hay algo que no me corre bien, yo tengo el siguiente código:

Código Delphi [-]
  Application.Initialize;
  frmAutenticacion:= TfrmAutenticacion.Create(Application);
  if frmAutenticacion.ShowModal=mrOk then
  begin
    Application.Initialize;
    Application.CreateForm(TfrmPrincipal, frmPrincipal);
    Application.CreateForm(TfrmPresenta, frmPresenta);
    Application.Run;
  end;

pero aunque en el formulario Autenticacion yo declaro frmAutenticacion.ModalResult:=mrOk el no entra a correr la aplicación. Agradecería cualquier ayuda al respecto.

Gracias de antemano.