一个用户登陆认证问题，代码如下！

Question

begin
  Application.Initialize;
  Application.CreateForm(TdmRsda, dmRsda);
  Application.CreateForm(TfrmMain, frmMain);
  try  //
    frmLogin := TfrmLogin.Create(Application);
    frmLogin.ShowModal;
    If frmLogin.ModalResult=mrOK theN //为什么总提示mrOK没有声明?
       Application.Run
    else
    begin
       frmLogin.Free;
       frmMain.Free;
    end;
  Except frmLogin.Free;
end; 
//以上代码哪些地方有问题，敬请指正！

Answer 1

这样：
    If frmLogin.ShowModal=mrOK theN //为什么总提示mrOK没有声明?

Answer 2

引用一下controls单元
----------------------------------------------
                   riff ur life

Answer 3

可是，frmLogin使用了，跟没使用一样呀，就起不到作用了呀。代码哪里还有错呀？

Answer 4

begin
 try  //
    frmLogin := TfrmLogin.Create(Application);
    frmLogin.ShowModal;
    If frmLogin.ModalResult<>mrOK then
    begin
       frmLogin.Free;
       Application.Terminate;
    end;
  finally
    frmLogin.Free;
  end;
  Application.Initialize;
  Application.CreateForm(TdmRsda, dmRsda);
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run
 end;