anchor.diff:      procedure OkBtnClick(Sender: TObject);
     public
       constructor CreateNew(AOwner: TComponent; Num: Integer = 0); override;
  +    procedure SetReadOnly;
     public
       property EditingPanel: TmEditingPanel read FEditingPanel;
     end;
  
positive.code: 
      function AddLine(const aName : String): TmEditorLineConfiguration;
  
      procedure AddMemo (const aName : string; const aCaption : string; const aDefaultValue : string; const aMemoHeightPercent : double; const aChangedValueDestination : TAbstractNullable = nil);
  
      function GetValue(const aName : string) : Variant;
      procedure SetValue(const aName : string; const aDisplayValue: String; const aActualValue: variant);
  
negative.code:     Result := aCaption;
  end;
  
  procedure TmEditingPanel.AddMemo(const aName: string; const aCaption: string;const aDefaultValue: string;
      const aMemoHeightPercent : double; const aChangedValueDestination : TAbstractNullable = nil; const aReadOnly : TmEditorLineReadOnlyMode = roAllowEditing);
  var
    tmpPanel1, tmpPanel2 : TPanel;
    tmpMemo : TMemo;
  