anchor.diff:  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
  
positive.code:       end;
      ptString:
        begin
          TypeSimple;
        end;
      ptFunction, ptProcedure:
        AnonymousMethod;
  
negative.code:       end
    else
      Expected(ptIdentifier);
    end;
  
    if TokenId = ptLower then
    begin
      Expected(ptLower);
      TypeArgs;
      Expected(ptGreater);
    end;
  end;
  
  