anchor.diff:  
   function ClipboardHasHTMLformat : boolean;
   function ClipboardToStream( Fmt : word; Stm : TStream ) : boolean;
  -function GetURLFromHTMLClipboard : wideString;
  +function GetURLFromHTMLClipboard : string;
   
   implementation
   uses WideStrings;
  
positive.code:     try
        ClipboardToStream( CF_HTML, Stm );
        Stm.Position := 0;
        list := TWideStringList.Create;
        try
          list.LoadFromStream( Stm );
          for i := 0 to list.count-1 do
  
negative.code:   end;
  end; // ClipboardToStream
  
  function GetURLFromHTMLClipboard : string;
  const
    HTML_FMT_SRCURL  = 'SourceURL:';
    MAX_TEST_LINES = 15;
  var
    List : TStringList;
    i : integer;
    Stm : TMemoryStream;
    line : string;
  begin
  
    result := '';
  