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