登陆界面的问题。

Question

我做了个界面Tfrm_load_n，用来处理用户登陆。代码如下：
begin  Application.Initialize;
  try
    frm_load_n:=Tfrm_load_n(Application);
  finally
    if frm_load_n.ShowModal=mrok then
    begin   
       application.Terminate;
    end;
    frm_load_n.Free;
  end;  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TDataModule1, DataModule1);
  //Application.CreateForm(Tfrm_load_n, frm_load_n);
  Application.Run;
 
end.为什么运行的时候，老是弹出一个对话框，它说地址发生错误，什么x0000不能read?
如何解决，非常急。

Answer 1

flashfm:=Tflashfm.create(application);//建立闪屏窗口
  flashfm.show;
  flashfm.Update;
  Application.Initialize;
  Application.Title := '人事管理';
  Application.CreateForm(Tmain, main);
  Application.CreateForm(Tlog, log);
  Application.CreateForm(Tdata, data);
  Application.CreateForm(Tflashfm, flashfm);
  Application.CreateForm(Templist, emplist);
  Application.CreateForm(Tempower, empower);
  Application.CreateForm(Tkxxwh, kxxwh);
  Application.CreateForm(Tabout, about);
  Application.CreateForm(Tselectfrm, selectfrm);
  Application.CreateForm(Tchgpwd, chgpwd);
  Application.CreateForm(Tdeskfrm, deskfrm);
  Application.CreateForm(Tzxdc_mx, zxdc_mx);
  Application.CreateForm(Tdwzc, dwzc);
  Application.CreateForm(Trydafrm, rydafrm);
  Application.CreateForm(Tjsfrm, jsfrm);
  Application.CreateForm(Trybdfrm, rybdfrm);
  Application.CreateForm(Tlvlifrm, lvlifrm);
  Application.CreateForm(Tgzbwhfrm, gzbwhfrm);
  Application.CreateForm(Tkmszfrm, kmszfrm);
  Application.CreateForm(Tkqbfrm, kqbfrm);
  Application.CreateForm(Tkaoqinfrm, kaoqinfrm);
  Application.CreateForm(Trdjjfzfrm, rdjjfzfrm);
  Application.CreateForm(Tjianglifrm, jianglifrm);
  Application.CreateForm(Tchengchufrm, chengchufrm);
  Application.CreateForm(Tqtxxfrm, qtxxfrm);
  Application.CreateForm(Tzcpdfrm, zcpdfrm);
  Application.CreateForm(Tpxfrm, pxfrm);
  Application.CreateForm(Ttxlfrm, txlfrm);
  Application.CreateForm(Tprintsetfrm, printsetfrm);
  flashfm.Close;
  flashfm.Free;
  log.showmodal;//显示登录窗口
  if log.ModalResult=1 then
  Application.Run
  else
     begin
       for  i :=screen.FormCount - 1 downto 0 do
       begin
       screen.Forms[i].close;
       screen.Forms[i].free;
       end;
       Application.Terminate;
     end;
end.

Answer 2

To esu(ESU) ( ) 兄：那我把Application.CreateForm(TDataModule1, DataModule1);移到前面来也不行呀。如何解决？