vProperty := vField.FieldType.GetProperty('OnChange');
            if not Assigned(vProperty) then Continue;
            if vProperty.PropertyType.Name <> 'TNotifyEvent' then Continue;     // <- das geht sicher besser