请问这段程序怎么实现关闭form1,打开form2的？

Question

unit Unit_Login;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;type
  TForm_Login = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit_User: TEdit;
    Edit_PW: TEdit;
    BitBtn_Login: TBitBtn;
    BitBtn_Cancel: TBitBtn;
    procedure BitBtn_LoginClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form_Login: TForm_Login;implementation{$R *.dfm}procedure TForm_Login.BitBtn_LoginClick(Sender: TObject);
begin
  BitBtn_Login.Tag:=BitBtn_Login.Tag+1;   //用Tag属性记录验证次数
  if (Edit_User.Text <>'aa') or (Edit_PW.Text <>'aa') then   //验证不成功
    if BitBtn_Login.tag=3 then      //判断错误次数
    begin
      showmessage('错误超过3次,拒绝登录!');
      modalresult:=mrCancel;       // 错误超过3次，模式返回值为mrCancel
    end
    else
    begin                          //错误小于3次，提示重新登录
      showmessage('用户名或密码错误，请重新登录!');
      Edit_User.Text:='';
      Edit_PW.Text:='';
      Edit_User.SetFocus ;
    end
  else
    modalresult:=mrOK;      //成功登录，模式返回值为 mrOK
end;end.

Answer 1

要在调用这句话Form_Login.ShowModal那处理if Form_Login.ShowModal = mrOK then
begin
  form1.hide;
  form2.show;
end;