procedure CorbaAnyType(Any: PCorbaAny; out TypeCode: ITypeCode);
CorbaAnyType(PCorbaAny Any, ITypeCode TypeCode);
OrbPas
This is function OrbPas.CorbaAnyType.