anchor.diff:        LogProperties(Source,'Source');
   {$endif}
         for Index := Low(Index) to High(PropIndices) do
  +      begin
  +        if Reverse then
  +        begin
  +          if (Props[Index] <> Unassigned) and not VarIsIntNull(Props[Index]) then
  +            continue;
  +        end;
           if (VarType(Source.Props[Index]) <> varEmpty) and (Vartype(Source.Props[Index]) <> varNull) then
             case Index of
               MarginTop..LeftPos:
  
positive.code: 
    // in the following, lowest priority on top, highest towards bottom.
  
      if (Tag = 'a') and (Pseudo <> '') then
        MergeItems('::' + Pseudo); {default Pseudo definition}
  
      if NoHoverVisited then
  
negative.code:                             iStyle := iStyle + [fsStrikeOut]
                            else if Props[TextDecoration] = 'none' then
                              iStyle := iStyle - [fsStrikeOut, fsUnderline];
  
                          LetterSpacing:
                            iCharExtra := Props[LetterSpacing];
                        end;
  