TMemberNotFound = reference to procedure(AType: PTypeInfo; const AName:
                                           string; var Action: TSkipAction);