function VariantToAny(Value: PVariant): PCorbaAny;
PCorbaAny VariantToAny(PVariant Value);
OrbPas
This is function OrbPas.VariantToAny.