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