新手 求教 子窗体 只限 弹出一次 的程序怎么写？

好象 米说的 那么简单 编了下 可还是弄不出来 能 说的详细点吗

主窗体
var
Form1: TForm1;
b:boolean;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var choice,content:string;
begin
if not b then
form2.Show;
end;

要判断的窗体
implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.FormActivate(Sender: TObject);
begin
b:=true;
end;

发现个问题子窗体 打开后 在关闭 就不能在打开了！！！！！！！！~~~~~~~~~~~