anchor.diff:  procedure TtiMemoMediatorView.SetupGUIandObject;
   begin
     inherited SetupGUIandObject;
  -  View.Lines.Clear;
  +  View.Lines.Text := '';
   end;
   
   
  
positive.code: 
  procedure RegisterFallBackMediators;
  begin
    gMediatorManager.RegisterMediator(TtiEditMediatorView, TtiObject, [tkSString,tkAString,tkInteger,tkFloat]);
    gMediatorManager.RegisterMediator(TtiEditIntegerMediatorView, TtiObject, [tkInteger]);
    gMediatorManager.RegisterMediator(TtiEditFloatMediatorView, TtiObject, [tkFloat]);
    gMediatorManager.RegisterMediator(TtiEditCurrencyMediatorView, TtiObject, [tkFloat]);
  
negative.code:   
  
    { Base class to handle TfpgMemo controls }
    TtiMemoMediatorView = class(TtiControlMediatorView)
    protected
      procedure   SetupGUIandObject; override;
      procedure   DoObjectToGui; override;
      procedure   DoGuiToObject; override;
      procedure   SetObjectUpdateMoment(const AValue: TtiObjectUpdateMoment); override;
    public
      constructor Create; override;
      function    View: TfpgMemo; reintroduce;
      class function ComponentClass: TClass; override;
    end;
  