anchor.diff:      WideSameText(GetTag(ALine), '(') and
       IsSystemStoreName(GetTag(ALine)) and
       WideSameText(GetTag(ALine), ')') and
  -    GetXStr(ALine, s);
  +    ParseKeyOrXStr(ALine, s);
   
     if not Result then
     begin
  
positive.code:     FValue: WideString;
      procedure SetValue(Value: WideString);
      class function IsSystemStoreName(Value: WideString): Boolean;
    protected
      procedure InitLine(ALine: WideString); override;
    public
  
negative.code:     FSystemStoreType := SystemStoreFromName(GetTag(ALine));
      Assert(FSystemStoreType <> ssNone);
      Assert(WideSameText(GetTag(ALine), ')'));
      Assert(ParseKeyOrXStr(ALine, FValue));
    end
    else
    begin
  