anchor.diff:      result := p.TokenString;
       p.NextToken;
       {$IFDEF UE3_SUPPORT}
  -    if (checkUE3desc and ((p.TokenString = 'DisplayName') or (p.TokenString = 'ToolTip'))) then begin
  +    if (checkUE3desc and ((SameText(p.TokenString, 'DisplayName')) or (SameText(p.TokenString, 'ToolTip')))) then begin
         result := '';
         p.SkipTo('>');
         p.NextToken;
  
positive.code:       end;
        result.options := result.options+p.TokenString;
        p.NextToken;
      end;
      p.NextToken; // = '}'
      if (p.Token = ';') then p.NextToken; // = ';'
  
negative.code:     result.srcline := p.SourceLine;
      result.definedIn := getCurrentFilename();
      p.NextToken; // {
      if (p.Token = '<') then begin
        pAngleBrackets(true);
      end;
      p.NextToken; // first element
      while (p.Token <> '}') do begin
        if (p.Token = toEOF) then begin
  