登录窗口不是系统主窗口 但又需要最先显示 用delphi怎么编写代

procedure TForm1.FormShow(Sender: TObject);
begin
if Form2.ShowModal=mrOk then
begin
Form2.Close;
end
else
Application.Terminate;
end;

登陆窗的通过验证  

procedure TForm2.Button1Click(Sender: TObject);
begin
if Edit1.Text = '通过' then
Form2.ModalResult := mrOk
end;