anchor.diff:  procedure TKMDeliveries.Load(LoadStream: TKMemoryStream);
   var
     I, Count: Integer;
  +  {$IFDEF WDC}
     Key: TKMDeliveryBidKey;
     Value: Single;
  -begin
  -  {$IFDEF WDC}
  -  if CACHE_DELIVERY_BIDS then
  -  begin
  -    fOfferToDemandCache.Clear;
  -    fSerfToOfferCache.Clear;
  -  end;
     {$ENDIF}
  -
  +begin
     LoadStream.ReadAssert('Deliveries');
     LoadStream.Read(fOfferCount);
     SetLength(fOffer, fOfferCount+1);
  
positive.code:   end;
  
    {$IFDEF WDC}
    fOfferToDemandCache.Clear;
    LoadStream.Read(Count);
    for I := 0 to Count - 1 do
    begin
      LoadStream.Read(Key.FromUID);
      LoadStream.Read(Key.ToUID);
      LoadStream.Read(Value);
      fOfferToDemandCache.Add(Key, Value);
    end;
  
    fSerfToOfferCache.Clear;
    LoadStream.Read(Count);
    for I := 0 to Count - 1 do
    begin
      LoadStream.Read(Key.FromUID);
      LoadStream.Read(Key.ToUID);
      LoadStream.Read(Value);
      fSerfToOfferCache.Add(Key, Value);
    end;
    {$ENDIF}
  end;
  
negative.code: procedure TKMDeliveries.Save(SaveStream: TKMemoryStream);
  var
    I: Integer;
    {$IFDEF WDC}
    Item: TPair<TKMDeliveryBidKey, Single>;
    {$ENDIF}
  begin
    SaveStream.WriteA('Deliveries');
    SaveStream.Write(fOfferCount);
  