anchor.diff:    if lPropType = tkClass then
       typinfo.SetObjectProp(Subject, FieldName, lValue)
     else
  -    raise EtiOPFProgrammerException.Create('Error property type not a Class');
  +    RaiseMediatorError(cErrorPropertyNotClass);
   end;
   
   procedure TMediatorDynamicComboBoxView.DoObjectToGui;
  
positive.code: 
    try
      for i := 0 to ValueList.Count - 1 do
      begin
        lItems.Add(ValueList.Items[i].Caption);
      end;
    except
      on E: Exception do
        raise EMediator.CreateFmt('Error adding list items to combobox ' +
                                   'Message: %s, Item Property Name: %s',
                                   [E.message, FieldName]);
    end;
    ObjectToGui;
  end;
  
  procedure TMediatorDynamicComboBoxView.SetOnChangeActive(AValue: Boolean);
  
negative.code: 
  const
    cErrorListHasNotBeenAssigned   = 'List has not been assigned';
    cErrorPropertyNotClass         = 'Property is not a class type!';
    cErrorAddingItemToCombobox     = 'Error adding list items to combobox ' +
                                     'Message: %s, Item Property Name: %s';
  
  
  procedure RegisterFallBackMediators;
  