Source position: varianth.inc line 328
procedure VarCast(
var dest: variant;
const source: variant;
vartype: LongInt
);