anchor.diff:      function GetSize: Integer;
       function GetAt(iIndex: Integer): string;
     public
  -    class function CppCreate: CStdStringPtrMap;
  -    procedure CppDestroy;
  +    class function CppCreate: CStdStringPtrMap; deprecated 'use Create';
  +    procedure CppDestroy; deprecated 'use Free';
  +    class function Create: CStdStringPtrMap;
  +    procedure Free;
       procedure Resize(nSize: Integer = 83);
       function Find(key: string; optimize: Boolean = True): Pointer;
       function Insert(key: string; pData: Pointer): Boolean;
  
positive.code: 
    CDialogBuilder = class
    public
      class function CppCreate: CDialogBuilder;
      procedure CppDestroy;
      function Create(xml: string; AType: string = ''; pCallback: IDialogBuilderCallback = nil; pManager: CPaintManagerUI = nil; pParent: CControlUI = nil): CControlUI; overload;
      function Create(pCallback: IDialogBuilderCallback = nil; pManager: CPaintManagerUI = nil; pParent: CControlUI = nil): CControlUI; overload;
      function GetMarkup: CMarkup;
  
negative.code:   Result := Delphi_StdStringPtrMap_Find(Self, PChar(key), optimize);
  end;
  
  procedure CStdStringPtrMap.Free;
  begin
    CppDestroy;
  end;
  
  function CStdStringPtrMap.Insert(key: string; pData: Pointer): Boolean;
  begin
    Result := Delphi_StdStringPtrMap_Insert(Self, PChar(key), pData);
  