Source position: variants.pp line 181
protected procedure TCustomVariantType.VarDataCast(
var Dest: TVarData;
const Source: TVarData
);