Feststellen ob ein bestimmtes MDI Child geöffnet ist?

[Texas]

Hallo
ich habe in meinem Programm in dem ein MDI Fenster nur x mal von Anwender geöffnen werden soll
so gelöst

Delphi-Quellcode:

procedure THaupt.Kunden1Click(Sender : TObject);
begin
  if IsChildActive(self, 'Kundenhaupt') < 5 then begin
    KundenHaupt := TKundenhaupt.Create(self, -1);
    Kundenhaupt.Show;
  end
  else begin
    Kundenhaupt.SetFocus;
    Kundenhaupt.BringToFront;
  end;
end;

function THaupt.IsChildActive(parent : TForm; Aformname : string) : integer;
var
  NumActive, i : Integer;
begin
  if (parent is TForm) then begin
    NumActive := 0;
    for i := (parent as TForm).MDIChildCount - 1 downto 0 do begin
      if Pos(aformname, (parent as TForm).MDIChildren[i].Name) = 1 then
        inc(NumActive);
    end;
    result := Numactive;
  end
  else
    result := -1;
end;

Gruß texas