anchor.diff:      FValue : double;
       FAttribute1 : TNullableString;
       FAttribute2 : TNullableString;
  +    FAttribute3 : TNullableString;
       FEventType : TmUprightEventType;
   
       FDatumKey : String;
  
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;
  
  