anchor.diff:              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;
  +
  +          ProcessPropertyOrShortHand(Prop, Value);
           end;
         end;
   
  
positive.code:   protected
      constructor Create(const AUseQuirksMode : Boolean);
      procedure ProcessProperty(const Prop, Value: ThtString); virtual; abstract;
    end;
  
    THtmlStyleTagParser = class(THtmlStyleParser)
  
negative.code:   end;
  
  var
    Prop, Value: ThtString;
  begin
    if LCh = '{' then
    begin
  