anchor.diff:        tmpEvent:= TmUprightEvent(FEventsList.Items[i]);
         if tmpEvent.EventType = etuValue then
         begin
  -        tmpDatum := TmUprightDatum.Create;
  +        tmpDatum := TmUprightDatum.Create(FFractionalPartDigits);
           tmpDatum.FEvent := tmpEvent;
           FDataList.Add(tmpDatum);
           FGarbage.Add(tmpDatum);
  
positive.code:     const FLD_POSITION = 'POSITION';
      const FLD_DATE = 'DATE';
    public
      constructor Create;
      destructor Destroy; override;
  
      function GetDatumKey : IVDDatumKey;
  
negative.code:   end;
  end;
  
  constructor TmUpright.Create(const aFractionalPartDigits : byte);
  begin
    FFractionalPartDigits:= aFractionalPartDigits;
    FDataList := TFPList.Create;
    FEventsList := TObjectList.Create(true);
    FGarbage := TObjectList.Create(true);
  