Source position: varutilh.inc line 58
function VariantToSmallInt(
const VargSrc: TVarData
):SmallInt;