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