anchor.diff:        end
     else
       Expected(ptIdentifier);
  +  end;
  +
  +  if TokenId = ptLower then
  +  begin
  +    Expected(ptLower);
  +    TypeArgs;
  +    Expected(ptGreater);
     end;
   end;
   
  
positive.code: procedure TmwSimplePasPar.TypeId;
  begin
    TypeSimple;
    if TokenId = ptLower then
    begin
      Expected(ptLower);
      TypeArgs;
      Expected(ptGreater);
    end;
  
    while TokenID = ptPoint do
    begin
      Expected(ptPoint);
      TypeSimple;
      if TokenId = ptLower then
      begin
        Expected(ptLower);
        TypeArgs;
        Expected(ptGreater);
      end;
    end;
  
    if TokenID = ptRoundOpen then
  
negative.code:       end;
      ptString:
        begin
          StringType;
        end;
      ptFunction, ptProcedure:
        AnonymousMethod;
  