anchor.diff:  
       procedure AddDefine(const ADefine: string);
       procedure RemoveDefine(const ADefine: string);
  +    function IsDeclared(const ASymbol: string): Boolean;
       function IsDefined(const ADefine: string): Boolean;
       procedure ClearDefines;
       procedure InitDefinesDefinedByCompiler;
  
positive.code:         LParams := TrimLeft(Copy(LParams, 3, Length(LParams) - 2));
        end;
      end;
    end else
      Result := False;
  end;
  
negative.code:   FTokenID := ptIntegerConst;
    while CharInSet(FBuffer.Buf[FBuffer.Run], ['0'..'9', 'A'..'F', 'a'..'f']) do
      Inc(FBuffer.Run);
  end;
  
  function TmwBasePasLex.IsDeclared(const ASymbol: string): Boolean;
  begin
    Result := SameText(ASymbol, 'ANSICHAR');
  end;
  
  function TmwBasePasLex.IsDefined(const ADefine: string): Boolean;
  