Suche nach einem Formtyp in einer ObjectListe von Forms

[bernhard_LA]

unsere App erzeugt diverse Forms zur Laufzeit, jedes Form wird in einer Liste abgelegt um später wieder darauf zugreifen zu können

funktionalercode geht wie z.B. folgt:

Delphi-Quellcode:

  
  AFormList: TObjectList;
  for i := 0 to AFormList.Count - 1 do
  begin
    ///
    /// check if correct Form type
    ///
    if (AFormList.Items[i] is TProjectIForm) then
        begin 
        ...
        MySelectedForm := (AFormList.Items[i] as TProjectIForm);
        .... 
        end;

ich benötige nun eine Funktion welche mir true/false zurück gibt je nachdem of ein
bestimmter Formtype in der Liste vorhanden ist

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] is anyForm) then
      Result := True;
  end;

end;

Problem
wie Übergebe ich einen Typen als Parameter an die Funktion FormtypeExisits ?