anchor.diff:      procedure   DoObjectToGui; override;
     public
       procedure   RefreshList; virtual;
  +    property    DisplayFieldName: string read GetDisplayFieldName write FDisplayFieldName;
     end;
     
   
  
positive.code:   { TComboBox observing a list and setting a Object property }
    TMediatorDynamicComboBoxView = class(TMediatorComboBoxView)
    private
      FExternalOnChange: TNotifyEvent;
      procedure   InternalListRefresh;
    protected
      procedure   SetListObject(const AValue: TtiObjectList); override;
  
negative.code:     Exit; //==>
  
    if not Assigned(ValueList) then
      RaiseMediatorError(cErrorListHasNotBeenAssigned);
  
    lPropType := typinfo.PropType(Subject, FieldName);
    if lPropType = tkClass then
      lValue := TtiObject(typinfo.GetObjectProp(Subject, FieldName))
    else
      RaiseMediatorError(cErrorPropertyNotClass);
  
    for i := 0 to ValueList.Count - 1 do
      if ValueList.Items[i] = lValue then
  