anchor.diff:      destructor Destroy; override;
   
       property ConditionType: TWinLossCondition read FEventType write SetEventType;
  -
  +  published
       property Value:Int32 read FValue write SetValue;
   
  -    property ObjectLink: string read FObjectLink write SetObjectLink;
  +    property &Object: string read FObjectLink write SetObjectLink;
   
       property Position: TPosition read FPosition;
       property &type: AnsiString read FType write SetType;
  
positive.code:   begin
      TJSONArray(Result).Add(GetEnumName(TypeInfo(TWinLossCondition), Integer(ConditionType)));
  
      o := CreateJSONObject([]);
  
      //todo: serialize
  
      if Value <> 0 then
      begin
        o.Add('value', Value);
      end;
  
      TJSONArray(Result).Add(o);
    end;
  end;
  
negative.code:     end;
  
      ConditionType := TWinLossCondition(raw_instruction);
      o := ASrcArray.Objects[1];
  
      AHandler.JSONToObject(o,Self);
    end;
  end;
  
  constructor TLogicalEventConditionItem.Create(ACollection: TCollection);
  