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