VarIsType

function VarIsType(

  const V: Variant;

  aVarType: TVarType

):Boolean; overload;

function VarIsType(

  const V: Variant;

  const AVarTypes: array of TVarType

):Boolean; overload;