anchor.diff:  begin
     aFieldsForLookup.Add(TmUprightDatum.FLD_POSITION);
     aFieldsForLookup.Add(TmUprightDatum.FLD_DATE);
  -  aFieldsForLookup.Add(TmUprightDatum.FLD_UPRIGHT);
  +  aFieldsForLookup.Add(TmUprightDatum.GetUprightFieldName(0));
   end;
   
   end.
  
positive.code:   FDataList.Free;
    FEventsList.Free;
    FGarbage.Free;
    FLimitsList.Free;
    inherited Destroy;
  end;
  
  
negative.code:   Result := FUprights[aIndex];
  end;
  
  function TmUprightDatum.GetRemaining(const aIndex: byte): TNullableDouble;
  begin
    Result := FRemainings[aIndex];
  end;
  
  { TmUpright }
  
  function TmUpright.OnCompareData(Item1, Item2: Pointer): Integer;
  