帮看看这个~通用的打开窗体过程,该如何处理

帮看看这个~通用的打开窗体过程
procedure OpenFrm(Frm: TForm);
begin
  if not Assigned(Frm) then
  begin
  Frm := TForm.Create(nil);
  Frm.Show;
  end
  else
  Frm.BringToFront;
end;


procedure TForm2.btn2Click(Sender: TObject);
begin
 OpenFrm(Form3);
end;

能打开窗体,但打开的不是form3,帮帮忙

[解决办法]
用2个参数，TFrom3也传过去

procedure OpenFrm(Frm: TForm;pFrm:TFormClass);
begin
...
Frm := pFrm.Create(nil);
...
end;

OpenFrm(Form3,TForm3);
[解决办法]

Delphi(Pascal) code

procedure OpenFrm(pFrm:TFormClass);var Frm: TForm;beginFrm := pFrm.Create(nil);Frm.Show();end;OpenFrm(TForm3);