anchor.diff:      end;
     except
       on EListError do
  -      raise EParserException.Create(Lexer.PosXY.Y, Lexer.PosXY.X);
  +      raise EParserException.Create(Lexer.PosXY.Y, Lexer.PosXY.X, 'Unknown Parser Fault');
     end;
   
     Assert(FStack.Count = 0);
  
positive.code:   const Typ: TMessageEventType; const Msg: string; X, Y: Integer);
  begin
    if Typ = TMessageEventType.meError then
      raise EParserException.Create(Y, X);
  end;
  
  procedure TPasSyntaxTreeBuilder.OutParameter;
  
negative.code:   strict private
      FLine, FCol: Integer;
    public
      constructor Create(Line, Col: Integer; Msg: string); reintroduce;
  
      property Line: Integer read FLine;
      property Col: Integer read FCol;
  