anchor.diff:    FObjectLink:=AValue;
   end;
   
  -procedure TLogicalEventConditionItem.SetSubType(AValue: AnsiString);
  -begin
  -  if FSubType=AValue then Exit;
  -  FSubType:=AValue;
  +procedure TLogicalEventConditionItem.SetSubtype(AValue: AnsiString);
  +begin
  +  if FSubtype=AValue then Exit;
  +  FSubtype:=AValue;
   end;
   
   procedure TLogicalEventConditionItem.Settype(AValue: AnsiString);
  
positive.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
  
negative.code: 
    TLogicalEventConditionItem = class(TLogicalExpressionItem, ISerializeSpecial)
    private
      FSubtype: AnsiString;
      Ftype: AnsiString;
      FConditionType: TWinLossCondition;
      FObjectLink: string;
  