Ventanas MDI Hijas

[LucianoRey]

Hola, tengo una Ventana Madre y varias hijas (MDI's) y tengo un problema como hago para que cuando de click en las opciones que abren las hijas estas se creen si no estan activas ó se despliegen al frente si ya estan abiertas, me fui a buscar en el historico acerca de este asunto encontre un codigo que use y que muestro a continuación :

function ExisteFrm(UnaForma:TForm): Boolean;
var i:Integer;
xFrm:Tform;
begin
Result:=False;
for i:=0 to Screen.FormCount - 1 do
begin
xFrm:=Screen.Forms[i];
if TFormClass(xFrm) = TFormClass(UnaForma) then
begin
Result:=true;
exit;
end;
end;
end;

procedure TForm1.Actividad1Click(Sender: TObject);
var MyChildForm: TForm2;
begin
if not ExisteFrm(Form2) then
begin
LockWindowUpdate(Handle);
MyChildForm := TForm2.Create(Application);
MyChildForm.Caption := 'Actividad ';
LockWindowUpdate(0);
end
else
Form2.BringToFront;
end;

la primera es la función que verifica la existencia de la hija y el procedimiento es el que la llama, pero no me funciona, es decir me la crea tantas veces la llame y solo quiero que se abra una vez, alguien me podria decir que esta mal en mi codigo o si me falta algo por hacer, gracias