anchor.diff:      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);
  +    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;
   
  
positive.code: function TmEditingPanel.GetValueFromMemo(const aName: string; const aTrimValue : boolean): string;
  var
    i : integer;
    sep : string;
    tmpMemo : TMemo;
  begin
    tmpMemo := FMemosByName.Find(aName) as TMemo;
    Result := '';
    sep := '';
    for i := 0 to tmpMemo.Lines.Count -1 do
  
negative.code: var
    i : integer;
    tmpLine : TEditorLine;
    tmpMemo : TEditorMemo;
  begin
    if FCommitted then
      exit;
  