anchor.diff:      FGarbage : TObjectList;
       FDataList : TFPList;
       FEventsList : TObjectList;
  -    FLimitsList : TFPList;
   
       function OnCompareData (Item1, Item2: Pointer): Integer;
       function OnCompareEvents (Item1, Item2: Pointer): Integer;
  
positive.code:   Result := FUprights[aIndex];
  end;
  
  { TmUpright }
  
  function TmUpright.OnCompareData(Item1, Item2: Pointer): Integer;
  
negative.code:     if i > 0 then
      begin
        i := StrToInt(Copy(aFieldName, i + LENGTH_FLD_DELTA, 999));
        Result := FEvent.GetValue(i - 1).AsVariant;
      end
      else
      begin
  