[rubio]

Hola.

Quite frmPresenta tal y como me indicaste y vuelve a dar el error, te digo el error lo da en frmAutenticacion cuando le estoy asignando el valor a la propiedad ModalResult.

Código Delphi [-]
frmAutenticacion.ModalResult:=mrOk;

Ahora si lo hago de esta forma no me da error.

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

Saludos.