如何使打开的多个form中用代码使其中一个激活！(100分)

function bShowIt;
begin
result := assigned(frm);
if result then
begin
if frm.WindowState = wsMinimized then frm.WindowState := wsNormal;
frm.Show;
frm.BringToFront;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
if bShowit(Form1) then
exit;
Application.CreateForm(TForm1, Form1);
Form1.Show;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action :=caFree;
Form1 :=nil;
end;

对不起，我最近很忙，没有回复。
我还没有试，但仍非常感谢，先送分了。