anchor.diff:  
     TLogicalEventConditionItem = class(TLogicalExpressionItem, ISerializeSpecial)
     private
  -    FSubType: AnsiString;
  +    FSubtype: AnsiString;
       Ftype: AnsiString;
       FConditionType: TWinLossCondition;
       FObjectLink: string;
  
positive.code: 
      property Position: TPosition read FPosition stored IsPositionStored;
      property &type: AnsiString read FType write SetType;
      property SubType: AnsiString read FSubType write SetSubType;
    end;
  
    { TLogicalEventCondition }
  
negative.code:     function IsPositionStored: Boolean;
      procedure SetConditionType(AValue: TWinLossCondition);
      procedure SetObjectLink(AValue: string);
      procedure SetSubtype(AValue: AnsiString);
      procedure Settype(AValue: AnsiString);
      procedure SetValue(AValue: Int32);
    protected
  