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