Source position: variants.pp line 201
public procedure TCustomVariantType.CastTo(
var Dest: TVarData;
const Source: TVarData;
const aVarType: TVarType
); virtual;