anchor.diff:      FEventType : TmUprightEventType;
   
       FDatumKey : String;
  +    FReference : TObject;
  +    FOwnsReference : boolean;
     public
       constructor Create;
       destructor Destroy; override;
  
positive.code:   EventDate:= 0;
    DatumKey:= '';
    EventType:= etuValue;
  
    for i := 0 to MAX_NUM_OF_ATTRIBUTES -1 do
    begin
  
negative.code:     FAttributes[i].Free;
      FValues[i].Free;
    end;
    if FOwnsReference then
      FreeAndNil(FReference);
    inherited Destroy;
  end;
  
  