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