登录窗口的问题，急！！！

Question

//看看你的那个工程文件～～也就是.dpr文件～～
begin
  Application.Initialize;
  //把你登录的窗口在这里创建～～
  //如果登录失败～～则Application.Terminate;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Answer 1

dpr:
begin
  Application.Initialize;
  Application.Title := '上报数据处理系统';
  Application.CreateForm(TFFlash, FFlash);
  FFlash.Show;
  FFlash.Repaint;
  sleep(1000);
  Application.CreateForm(Tdm1, dm1);
  FFlash.hide;
  FFlash.free;  Application.CreateForm(TFlogIn,FlogIn);
  FLogIn.ShowModal;
  if FLogIn.ModalResult = mrcancel then Halt;
  FLogIn.Hide;
  FLogIn.Free;  Application.CreateForm(TForm1,Form1);
  Application.Run;
end.flogin:
procedure TFLogIn.FormShow(Sender: TObject);
begin
  Edit1.Text := DecStr(UserInfo);
  Edit2.Text := '';
  Edit2.SetFocus;
  WrongTimes := 0;
end;procedure TFLogIn.BitBtn1Click(Sender: TObject);
begin
  if DecStr(Password) <> Edit2.Text then
  begin
    WrongTimes := WrongTimes + 1;
    Edit2.SetFocus;
    Application.MessageBox(pchar('密码输入错误,请重新输入!'),pchar('注意'),mb_ok);
  end else
  begin
    ModalResult := mrOk;
  end;  if WrongTimes = 3 then
  begin
    Application.MessageBox(pchar('错误次数太多,系统终止!'),pchar('注意'),mb_ok);
    ModalResult := mrCancel;
  end;
end;procedure TFLogIn.BitBtn2Click(Sender: TObject);
begin
  ModalResult := mrCancel;
end;procedure TFLogIn.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;end.

Answer 2

楼上的兄弟 FFlash是怎么一回事
谢谢

Answer 3

工程文件～～也就是.dpr文件～～
工程文件
begin
  Application.Initialize;
  登录的窗口.ShowModal;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Answer 4

不过登录的窗口必须处理掉登陆失败的结果
  Application.Terminate;
  

Answer 5

忘了在ShowModal前
Application.CreateForm(T登录的窗口, 登录的窗口);