anchor.diff:      property Value: double read FValue write FValue;
       property Attribute1 : TNullableString read FAttribute1;
       property Attribute2 : TNullableString read FAttribute2;
  +    property Attribute3 : TNullableString read FAttribute3;
       property DatumKey: string read FDatumKey write FDatumKey;
       property EventType : TmUprightEventType read FEventType write FEventType;
     end;
  
positive.code:     DataType:= vftString;
      Size := 255;
    end;
  end;
  
  class function TmUprightDatum.GetKeyField: String;
  
negative.code: 
    FAttribute1 := TNullableString.Create;
    FAttribute2 := TNullableString.Create();
    FAttribute3 := TNullableString.Create();
  end;
  
  destructor TmUprightEvent.Destroy;
  begin
    FAttribute1.Free;
    FAttribute2.Free;
    FAttribute3.Free;
    inherited Destroy;
  end;
  
  