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.
Código:
...
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.