anchor.diff:    tmpEditorMemo.Name:= aName;
     tmpEditorMemo.Memo := tmpMemo;
     tmpEditorMemo.ChangedValueDestination := aChangedValueDestination;
  +  tmpEditorMemo.Memo.ReadOnly := (aReadOnly <> roAllowEditing);
   
     FMemos.Add(tmpEditorMemo);
     FMemosByName.Add(aName, tmpEditorMemo);
  
positive.code:     procedure OkBtnClick(Sender: TObject);
    public
      constructor CreateNew(AOwner: TComponent; Num: Integer = 0); override;
    public
      property EditingPanel: TmEditingPanel read FEditingPanel;
    end;
  
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;
  