Problema con pantalla de password (ventana modal)

[Durbed]

He modificado el código de la siguiente forma, pero no hay manera, sigue dando el error de violavion de memoria, y ya no se que mas probar, creo que así esta bien, el error lo da al final del todo, es decir, que salta en la linea end.

 ...
 begin
   Application.Initialize;
   Application.CreateForm(TDMAgenda, DMAgenda);
   Application.CreateForm(TDMHacienda, DMHacienda);
   FLogin := TFLogin.Create(Application);
   try
 	Respuesta := FLogin.ShowModal;
 	if Respuesta = mrOK then
 	  begin
 		Application.CreateForm(TForm1, Form1);
 		Application.CreateForm(TFAgenda_MDIChild, FAgenda_MDIChild);
 		Application.Run;
 	  end
 	else
 	  Application.Terminate;
   finally
 	FLogin.Free;
 end;
 
 end.

Gracias.

[kalimero]

Hola
Comenta el FLogin.free
Saludos

[Durbed]

Kalimero, asi tampoco ha funcionado, pero al final lo he resuelto de una forma mejor, pues ahora si se introducen mal los datos del login, entra al programa, donde puede crearse una agenda o conectarse a una existente.

Gracias.

[hermes_32]

A mi con lo que te puse me funciona perfectamente.

Empezado por Durbed

Y el error es una violacion de acceso de memoria, que se produce despues de ejecutar Application.Terminate; En el Formulario del Login no hago nada aun, es decir que si das al OK pongo mrOK, si das a la X pongo mrAbort.

Si le das al OK -> ModalResult := mrOk
Si le das a la X -> ModalResult := mrCancel

Otro detalle, la pantalla que tu llamas Form1 no la pongas "autocreate". Es decir, en Project->Options la tienes que dejar en la lista de la derecha.

Un saludo.