anchor.diff:  
     try
       for i := 0 to ValueList.Count - 1 do
  -    begin
  -      lItems.Add(ValueList.Items[i].Caption);
  -    end;
  +      lItems.AddObject(GetStrProp(ValueList.Items[i], DisplayFieldName), ValueList.Items[i]);
     except
       on E: Exception do
  -      raise EMediator.CreateFmt('Error adding list items to combobox ' +
  -                                 'Message: %s, Item Property Name: %s',
  -                                 [E.message, FieldName]);
  +      RaiseMediatorError(cErrorAddingItemToCombobox,[E.message, FieldName]);
     end;
     ObjectToGui;
  +end;
  +
  +function TMediatorDynamicComboBoxView.GetDisplayFieldName: string;
  +begin
  +  Result := FDisplayFieldName;
  +  if (Result = '') then
  +    Result := 'Caption'; // Do not localize.
   end;
   
   procedure TMediatorDynamicComboBoxView.SetOnChangeActive(AValue: Boolean);
  
positive.code:   if lPropType = tkClass then
      typinfo.SetObjectProp(Subject, FieldName, lValue)
    else
      raise EtiOPFProgrammerException.Create('Error property type not a Class');
  end;
  
  procedure TMediatorDynamicComboBoxView.DoObjectToGui;
  
negative.code:     procedure   DoObjectToGui; override;
    public
      procedure   RefreshList; virtual;
      property    DisplayFieldName: string read GetDisplayFieldName write FDisplayFieldName;
    end;
    
  
  