Source position: variants.pp line 200
public procedure TCustomVariantType.Cast(
var Dest: TVarData;
const Source: TVarData
); virtual;