Source position: variants.pp line 191
protected procedure TCustomVariantType.VarDataCastToOleStr(
var Dest: TVarData
);