anchor.diff:  begin
     {$IFDEF USE_HASH}
     if CACHE_DELIVERY_BIDS then
  +  begin
       FreeAndNil(fBidsCache);
  +    fRemoveKeysList.Free;
  +  end;
     {$ENDIF}
   
     if DELIVERY_BID_CALC_USE_PATHFINDING then
  
positive.code:   inherited Add(key, bid);
  end;
  
  {$ENDIF}
  
  end.
  
negative.code: 
    TKMDeliveryBid = record
      Value: Single;
      TimeToLive: Integer; //Cached bid time to live, we have to update it from time to time
    end;
    {$ENDIF}
  
  