Menu Janelas - Como impedir abrir uma janela já aberta?

private
{ Private declarations }
function Formexiste(nomejanela:Tform):boolean;
public
{ Public declarations }
end;

implementation

{$R *.DFM}

Function TForm_Principal.Formexiste(Nomejanela:TForm):boolean;
var
I : integer;
begin
Formexiste := false;
for i := 0 to componentcount - 1 do
if Components[i] is TForm then
if TForm(Components[i])= nomejanela then
Formexiste := true;
end;

If Formexiste(Nome do Form) = false then
Begin
Nome do Form := TNome do Form.Create(Self);
end
else
If Formexiste(Nome do Form) = true then
Begin
showmessage(´A janela já está aberta´);
Nome do Form.BringToFront;
Nome do Form.SetFocus;
end;