procedure CorbaAnyType(Any: PCorbaAny; out TypeCode: ITypeCode);

CorbaAnyType(PCorbaAny Any, ITypeCode TypeCode);