anchor.diff:      function GetClass: string;
       function GetControlFlags: UINT;
       function GetInterface(pstrName: string): Pointer;
  -    function GetLinkContent(iIndex: Integer): CDuiString;
  +    function GetLinkContent(iIndex: Integer): string;
       procedure DoEvent(var event: TEventUI);
       function EstimateSize(szAvailable: TSize): TSize;
       procedure PaintText(hDC: HDC);
  
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:   Result := Delphi_TextUI_GetInterface(Self, PChar(pstrName));
  end;
  
  function CTextUI.GetLinkContent(iIndex: Integer): string;
  begin
    Result := Delphi_TextUI_GetLinkContent(Self, iIndex);
  end;
  