anchor.diff:          FStack.AddChild(Param.Clone);
           if Assigned(TypeInfo) then
             FStack.AddChild(TypeInfo.Clone);
  +
  +        if Assigned(ParamExpr) then
  +          FStack.AddChild(ParamExpr.Clone);
   
           FStack.Pop;
         end;
  
positive.code: procedure TPasSyntaxTreeBuilder.FormalParameterList;
  var
    Params: TSyntaxNode;
    ParamList, Param, TypeInfo: TSyntaxNode;
    ParamKind: string;
    Position: TTokenPoint;
  begin
  
negative.code:     begin
        TypeInfo := ParamList.FindNode(sTYPE);
        ParamKind := ParamList.GetAttribute('kind');
        ParamExpr := ParamList.FindNode(sEXPRESSION);
  
        for Param in ParamList.ChildNodes do
        begin
          if not SameText(Param.Name, sNAME) then
  