procedure MemberNotFound(AType: PTypeInfo; const AName:
                             string; var Action: TSkipAction); virtual;