anchor.diff:      function IsPositionStored: Boolean;
       procedure SetConditionType(AValue: TWinLossCondition);
       procedure SetObjectLink(AValue: string);
  -    procedure SetSubType(AValue: AnsiString);
  +    procedure SetSubtype(AValue: AnsiString);
       procedure Settype(AValue: AnsiString);
       procedure SetValue(AValue: Int32);
     protected
  
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: 
    TLogicalEventConditionItem = class(TLogicalExpressionItem, ISerializeSpecial)
    private
      FSubtype: AnsiString;
      Ftype: AnsiString;
      FConditionType: TWinLossCondition;
      FObjectLink: string;
  