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:   FEditingPanel.Parent := Self;
    FEditingPanel.Align:= alClient;
  
  end;
  
  { TmEditingPanel }
  
negative.code:   tmpEditorMemo.Name:= aName;
    tmpEditorMemo.Memo := tmpMemo;
    tmpEditorMemo.ChangedValueDestination := aChangedValueDestination;
    tmpEditorMemo.Memo.ReadOnly := (aReadOnly <> roAllowEditing);
  
    FMemos.Add(tmpEditorMemo);
    FMemosByName.Add(aName, tmpEditorMemo);
  