anchor.diff:    end;
   end;
   
  -
   function AppVariantToString(const V: TAppVariant): string;
   begin
     case V.Typ of
  
positive.code:     case Typ: TAppVariantTypeId of
        avrBool: (Bool: boolean);
        avrInt: (Int: Int64);
        avrRect: (Rect: TRect);
        avrDict: (DictLen: integer; DictItems: array[0..6] of TAppVariantDictItem);
    end;
  
    TAppVariantArray = array of TAppVariant;
  
  function AppVariant(Value: boolean): TAppVariant; inline;
  function AppVariant(const Value: Int64): TAppVariant; inline;
  function AppVariant(const Value: string): TAppVariant; inline;
  function AppVariant(const Value: TRect): TAppVariant; inline;
  function AppVariantToString(const V: TAppVariant): string;
  function AppVariantArrayToString(const V: TAppVariantArray): string;
  
  
negative.code:   end;
  
    TAppVariantTypeId = (
      avrNil,
      avrBool,
      avrInt,
      avrStr,
      avrTupleInt,
      avrTupleIntStr,
      avrDict
      );
  
  