anchor.diff:    protected
       constructor Create(const AUseQuirksMode : Boolean);
       procedure ProcessProperty(const Prop, Value: ThtString); virtual; abstract;
  +    procedure ProcessPropertyOrShortHand(Prop, Value: ThtString);
     end;
   
     THtmlStyleTagParser = class(THtmlStyleParser)
  
positive.code:       Value := '';
        while not ((LCh = ';') or (LCh = EofChar)) do
        begin
          Value := Value + LCh;
          GetCh;
        end;
        Value1 := LowerCase(Trim(Value)); {leave quotes on for font}
        Value := RemoveQuotes(Value1);
  
        if FindShortHand(Prop, Index) then
          ProcessShortHand(Index, Prop, Value, Value1)
        else
          ProcessProperty(Prop, Value);
      end;
      SkipWhiteSpace;
      if LCh = ';' then
  
negative.code: //-- BG ---------------------------------------------------------- 29.12.2010 --
  procedure THtmlStyleAttrParser.ParseProperties(Doc: TBuffer; Propty: TProperties);
  var
    Prop, Value: ThtString;
  begin
    Self.Doc := Doc;
    Self.Propty := Propty;
  