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:   FObjectLink:=AValue;
  end;
  
  procedure TLogicalEventConditionItem.SetSubtype(AValue: AnsiString);
  begin
    if FSubtype=AValue then Exit;
    FSubtype:=AValue;
  end;
  
  procedure TLogicalEventConditionItem.Settype(AValue: AnsiString);
  