[amadis]

Que Tal Gente!

Estoy intentando agregarle como medida de seguridad a un sistema, que me pida una contraseña para acceder a el.

Para ello creé un nuevo form ( con un edit para tipear clave) y en keypress = chr(13) compruebo si la clave es la correcta contra un campo en una BD.

Todo bien.

Les muestro el Source del proyecto

Código Delphi [-]
program sistema;

uses
  Forms,
  main in 'main.pas' {Principal},
  hhija in 'hhija.pas' {Hija},
  data in 'data.pas' {Datos: TDataModule},
  splas in 'SPLAS.PAS' {Splash},
  acerca in 'ACERCA.PAS' {about},
  pasword in 'pasword.pas' {password};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(Tpassword, password); // Agregue esta linea
// y lo que anulé de aquí abajo antes estaba y funcionaba bien
  {Splash := TSplash.Create(nil);
  Splash.Show;
  Splash.Update;
  Application.Title := 'Sistema Protegido';
  Application.CreateForm(TPrincipal, Principal);//MdiForm
  Application.CreateForm(THija, Hija);//MDiChild
  Application.CreateForm(Tpassword, password);//FSStayontop
  Application.CreateForm(TDatos, Datos);//datamodule
  Splash.Free;}
  Application.Run;
end. // <- aqui marca error (leer mas abajo)

Entonces se ejecuta solo un FormStayOnTop que pide contraseña si es la correcta tendria que destruirse y crear el programa funcional propiamente dicho para ello luego de verificar que la clave es correcta ejecuto este codigo

Código Delphi [-]
Var
 clave : String; // contiene la clave de la BD
Begin
 if clave = edit1.Text then
  begin
   Password.Free;
   Splash := TSplash.Create(nil);
   Splash.Show;
   Splash.Update;
   Application.Title := 'Sistema Protegido';
   Application.CreateForm(TPrincipal, Principal); 
   Application.CreateForm(THija, Hija);
   Application.CreateForm(TDatos, Datos); //datamodule
   Splash.Free; // se muestra mientras carga
   Application.Run;
  end
else
 begin
  MessageDLG('Clave Incorrecta',MTError,[MbRetry],0);
  c := c +1;
    if c = 3 then Close;
 end;

Eso también funciona y me abre el programa y una vez alli funciona pero cuando cierro el form principal me sale un Excepcion "EAccessViolation". Y marca el error en la ultima linea de codigo del source sel sistema en la linea donde esta el End final.

Probé quitar el Application.Run que se dispara luego de verificar la contraseña pero no funciona.

¿Alguna idea?

Muchas Gracias