anchor.diff:  function TKMDeliveryBid.GetTTL: Integer;
   begin
     Result := 0;
  -  case Kind of
  -    dbkSerfToOffer:   Result := SERF_OFFER_CACHED_BID_TTL;
  -    dbkOfferToDemand: Result := OFFER_DEMAND_CACHED_BID_TTL;
  +  case RouteStep of
  +    drsSerfToOffer:   Result := SERF_OFFER_CACHED_BID_TTL;
  +    drsOfferToDemand: Result := OFFER_DEMAND_CACHED_BID_TTL;
     end;
   end;
   
  
positive.code: 
  destructor TKMDeliveries.Destroy;
  begin
    {$IFDEF USE_HASH}
    if CACHE_DELIVERY_BIDS then
    begin
      FreeAndNil(fBidsCache);
      fRemoveKeysList.Free;
    end;
    {$ENDIF}
  
    if DELIVERY_BID_CALC_USE_PATHFINDING then
      FreeAndNil(fNodeList);
  
    inherited;
  end;
  
negative.code: procedure TKMDeliveries.Save(SaveStream: TKMemoryStream);
  var
    I: Integer;
  begin
    SaveStream.PlaceMarker('Deliveries');
    SaveStream.Write(fOwner);
  