关于密码校验的问题 (100分)

我写了一个软件，用户使用需要密码。我在工程文件中是这样写的：
begin
Application.Initialize;
frmLogin:=TfrmLogin.Create(Application);
try
if frmLogin.ShowModal=1 then
begin
Application.Create(TfrmMain,frmMain);
Application.Run;
end;
finally
frmLogin.free;
end;
end;
在frmLogin中我判断用户名密码是否正确,如正确则给ModalResult:=1.
在frmLogin中有一个Close Button，每次Click Close Button都会出现关闭错误，
且程序退出,并且程序关闭也会出错，我哪个地方有问题请给予解答。
如何才能写一个准确的密码校验文件,请给出源代码。

试试
frmLogin:=TfrmLogin.Create(nil);

你的上述代码能通过编译吗？
我把Application.Create(TfrmMain,frmMain);
改成Application.CreateForm(TfrmMain,frmMain);
运行没问题。

不过，我觉得你的这段代码还是有问题，这样写的话，在程序运行过程中，TfrmLogin始终
没有被释放，直到程序结束，白白浪费了资源。

你可能把该form设为主form了，你可以用模态form来完成的的

请继续或结束

多人接受答案了。