Source position: varutilh.inc line 60
function VariantToShortint(
const VargSrc: TVarData
):ShortInt;