TIsPointerOrObjectPtrToBaseOf