anchor.diff:        Value := '';
         while not ((LCh = ';') or (LCh = EofChar)) do
         begin
  -        Value := Value + LCh;
  +        SetLength(Value, Length(Value) + 1);
  +        Value[Length(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);
  +
  +      ProcessPropertyOrShortHand(Prop, Value);
       end;
       SkipWhiteSpace;
       if LCh = ';' then
  
positive.code: 
  uses
  {$ifdef VCL}
    Windows,  // needed to expand inline function htUpCase 
  {$endif}
    Classes, Graphics, SysUtils,
    HtmlGlobals, HtmlBuffer, UrlSubs, StyleUn;
  
negative.code:   protected
      constructor Create(const AUseQuirksMode : Boolean);
      procedure ProcessProperty(const Prop, Value: ThtString); virtual; abstract;
      procedure ProcessPropertyOrShortHand(Prop, Value: ThtString);
    end;
  
    THtmlStyleTagParser = class(THtmlStyleParser)
  