anchor.diff:  
   uses
   {$ifdef VCL}
  -  Windows,  // needed to expand inline function htUpCase 
  +  Windows,  // needed to expand inline function htUpCase
   {$endif}
     Classes, Graphics, SysUtils,
     HtmlGlobals, HtmlBuffer, UrlSubs, StyleUn;
  
positive.code:             Value[Length(Value)] := LCh;
              GetCh;
            end;
            Value1 := LowerCase(Trim(Value)); {leave quotes on for font}
            Value := RemoveQuotes(Value1);
  
            Prop := LowerCase(Prop);
            if FindShortHand(Prop, Index) then
              ProcessShortHand(Index, Prop, Value, Value1)
            else
            begin
              if (LinkPath <> '') and (Pos('url(', Value) > 0) then
                Value := AddPath(Value);
              ProcessProperty(Prop, Value);
            end;
          end;
        end;
  
  
negative.code:       else
          break;
        end;
      SkipWhiteSpace;
      if (LCh = ':') or (LCh = '=') then
      begin
  