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