anchor.diff:      Result := aCaption;
   end;
   
  -procedure TmEditingPanel.AddMemo(const aName: string; const aCaption: string;const aDefaultValue: string; const aMemoHeightPercent : double; const aChangedValueDestination : TAbstractNullable = nil);
  +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;
  
positive.code:     procedure OkBtnClick(Sender: TObject);
    public
      constructor CreateNew(AOwner: TComponent; Num: Integer = 0); override;
    public
      property EditingPanel: TmEditingPanel read FEditingPanel;
    end;
  
negative.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;
        const aReadOnly : TmEditorLineReadOnlyMode = roAllowEditing);
  
      function GetValue(const aName : string) : Variant;
      procedure SetValue(const aName : string; const aDisplayValue: String; const aActualValue: variant);
  