Suche nach einem Formtyp in einer ObjectListe von Forms

[Delphi.Narium]

Funktioniert sowas:

Delphi-Quellcode:

function TPForm.FormtypeExisits(anyForm: TObject): boolean;
var
  i: Integer;
begin
  Result := False;
  for i := 0 to AFormList.Count - 1 do
  begin
    if (AFormList.Items[i].ClassType = anyForm.ClassType) then
      Result := True;
  end;
end;