anchor.diff:  function TmEditingPanel.GetValueFromMemo(const aName: string; const aTrimValue : boolean): string;
   var
     i : integer;
  -  sep : string;
  +  sep, s : string;
     tmpMemo : TMemo;
   begin
  -  tmpMemo := FMemosByName.Find(aName) as TMemo;
  +  tmpMemo := (FMemosByName.Find(aName) as TEditorMemo).Memo;
     Result := '';
     sep := '';
     for i := 0 to tmpMemo.Lines.Count -1 do
  
positive.code: 
    tmpObj := FMemosByName.Find(aName);
    if Assigned(tmpObj) then
      (tmpObj as TMemo).ReadOnly:= aValue
    else
      FValueListEditor.ItemProps[aName].ReadOnly := aValue;
  end;
  
negative.code:     procedure AddLine (const aName : string; const aCaption : string; const aDefaultDisplayValue : string; const aDefaultActualValue: variant; const aEditorKind : TmEditingPanelEditorKind; const aReadOnly : boolean = false; const aMandatory: boolean = false; const aChangedValueDestination : TAbstractNullable = nil);
      procedure AddLineForNullable (const aName: string; const aCaption: String; aValue: TAbstractNullable; const aEditorKind: TmEditingPanelEditorKind; const aReadOnly, aMandatory : boolean; const aDisplayValue : variant);
  
      procedure AddMemo (const aName : string; const aCaption : string; const aDefaultValue : string; const aMemoHeightPercent : double; const aChangedValueDestination : TAbstractNullable = nil);
      function GetValue(const aName : string) : Variant;
      function GetEditorKind(const aName : string): TmEditingPanelEditorKind;
  
  