anchor.diff:      function SendMessage(uMsg: UINT; wParam: WPARAM = 0; lParam: LPARAM = 0): LRESULT;
       function PostMessage(uMsg: UINT; wParam: WPARAM = 0; lParam: LPARAM = 0): LRESULT;
       procedure ResizeClient(cx: Integer = -1; cy: Integer = -1);
  -    function AddVirtualWnd(strName: CDuiString; pObject: CNotifyPump): Boolean;
  -    function RemoveVirtualWnd(strName: CDuiString): Boolean;
  +    function AddVirtualWnd(strName: string; pObject: CNotifyPump): Boolean;
  +    function RemoveVirtualWnd(strName: string): Boolean;
       procedure NotifyPump(var msg: TNotifyUI);
       function LoopDispatch(var msg: TNotifyUI): Boolean;
       function GetPaintManagerUI: CPaintManagerUI;
  
positive.code:   public
      class function CppCreate: CNotifyPump;
      procedure CppDestroy;
      function AddVirtualWnd(strName: CDuiString; pObject: CNotifyPump): Boolean;
      function RemoveVirtualWnd(strName: CDuiString): Boolean;
      procedure NotifyPump(var msg: TNotifyUI);
      function LoopDispatch(var msg: TNotifyUI): Boolean;
    end;
  
negative.code:   Delphi_Delphi_WindowImplBase_ResizeClient(Self, cx, cy);
  end;
  
  function CDelphi_WindowImplBase.AddVirtualWnd(strName: string; pObject: CNotifyPump): Boolean;
  begin
    Result := Delphi_Delphi_WindowImplBase_AddVirtualWnd(Self, strName, pObject);
  end;
  