anchor.diff:  constructor TListViewListItemMediator.CreateCustom(AModel: TtiObject; AView: TfpgLVItem; AOnBeforeSetupField: TOnBeforeSetupField; const AFieldsInfo: TtiMediatorFieldInfoList; IsObserving: Boolean);
   begin
     inherited Create;
  -  FModel      := AModel;
  +  Model      := AModel;
     FView       := AView;
     FFieldsInfo := AFieldsInfo;
     OnBeforeSetupField := AOnBeforeSetupField;
  
positive.code: constructor TStringGridRowMediator.CreateCustom(AModel: TtiObject; AGrid: TfpgStringGrid; const AFieldsInfo: TtiMediatorFieldInfoList; ARowIndex: integer; IsObserving: Boolean);
  begin
    inherited Create;
    FModel      := AModel;
    FView       := AGrid;
    FFieldsInfo := AFieldsInfo;
    FRowIndex   := ARowIndex;
  
negative.code:   lValue: string;
  begin
    lMemberName := FFieldsInfo[0].PropName;
    lValue      := Model.PropValue[lMemberName];
    if Assigned(OnBeforeSetupField) then
      OnBeforeSetupField(Model, lMemberName, lValue);
    FView.Caption := lValue;
    for c := 1 to FFieldsInfo.Count - 1 do
    begin
      lMemberName := FFieldsInfo[c].PropName;
      lValue      := Model.PropValue[lMemberName];
      if Assigned(OnBeforeSetupField) then
        OnBeforeSetupField(Model, lMemberName, lValue);
      FView.SubItems.Add(lValue);
    end;
  end;
  
  