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.