关闭一个窗口的同时打开另外一个窗口？

Question

我想制作一个登录窗口，在正确输入用户名和密码之后打开mdi主窗口
procedure TFrm_Login.Button1Click(Sender: TObject);
begin
    Application.CreateForm(TForm2, Form2);
    form2.Show ;
    form2.Update ;
    frm_login.close;
end;
end.
怎末不行啊？
请高手指点

Answer 1

var
frm:TFrm_Login;
begin
frm=TFrm_Login.Create(application);
if frm.Showmodal=mrok then
begin
    Application.CreateForm(TForm2, Form2);
    form2.Show ;
end