ClassCase

function ClassCase(

  const AClass: TClass;

  const ACase: array of TClass

):Integer; overload;

function ClassCase(

  const AClass: TClass;

  const ACase: array of TClass;

  const ADecendant: Boolean

):Integer; overload;