anchor.diff:        else
           break;
         end;
  -    Prop := LowerCase(Trim(Prop));
       SkipWhiteSpace;
       if (LCh = ':') or (LCh = '=') then
       begin
  
positive.code:   end;
  
  var
    Prop, Value, Value1: ThtString;
    Index: TShortHand;
  begin
    if LCh = '{' then
    begin
  
negative.code: 
  uses
  {$ifdef VCL}
    Windows,  // needed to expand inline function htUpCase
  {$endif}
    Classes, Graphics, SysUtils,
    HtmlGlobals, HtmlBuffer, UrlSubs, StyleUn;
  