error con form de acceso al sistema

[Kenobi]

Hola amigos ...tengo el siguiente problema

tengo un form para acceder al sistema ....

Código Delphi [-]
Application.Initialize;
  Application.MainFormOnTaskbar := True;
      Application.CreateForm(TDataAreas, DataAreas);


  frmLogin:=TFrmLogin.Create(Nil);
  if FrmLogin.ShowModal=mrYes then
   begin


   Application.CreateForm(TFrmPrincipal, FrmPrincipal);
..
..
..
..
.. // el resto de los formularios 
  Application.Run;

  end;

si ejecuto dicho codigo y no me logeo (modalresult distinto a mrok )sea por cerrar el form con el boton de cerrar me da el siguiente error .....

access violation on address xxxx in module xxxx Read of address xxxxx

si coloco la siguiente linea

Código Delphi [-]
Application.CreateForm(TDataAreas, DataAreas);

dentro del
if FrmLogin.ShowModal=mrYes then todo funciona bien... sin embargo quiero llamar antes del form de acceso a dicho form DataAreas porque el el modulo de datos y lo necesito activo para consultar el usuario....

espero que me puedan ayudar ....

Gracias ....