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