anchor.diff:          begin
             DestructorHeading;
           end;
  -      ptFunction, ptIdentifier:
  +      ptFunction:
           begin
  -          if (TokenID = ptIdentifier) and (Lexer.ExID <> ptOperator) then
  -            Expected(ptOperator);
             ClassFunctionHeading;
           end;
         ptProcedure:
           begin
             ClassProcedureHeading;
           end;
  +      ptIdentifier:
  +        begin
  +          if Lexer.ExID = ptOperator then
  +          begin
  +            ClassOperatorHeading;
  +          end
  +          else
  +            SynError(InvalidProcedureMethodDeclaration);
  +        end;
       else
         SynError(InvalidClassMethodHeading);
       end;
  
positive.code:   Expected(ptEqual);
    FunctionMethodName;
    Semicolon;
  end;
  
  procedure TmwSimplePasPar.ResolutionInterfaceName;
  
negative.code:     procedure ClassMethodHeading; virtual;
      procedure ClassMethodOrProperty; virtual;
      procedure ClassMethodResolution; virtual;
      procedure ClassOperatorHeading; virtual;
      procedure ClassProcedureHeading; virtual;
      procedure ClassClass; virtual;
      procedure ClassConstraint; virtual;
  