anchor.diff:  procedure TKMDeliveries.Save(SaveStream: TKMemoryStream);
   var
     I: Integer;
  +  Item: TPair<TKMDeliveryBidKey, Single>;
   begin
     SaveStream.WriteA('Deliveries');
     SaveStream.Write(fOfferCount);
  
positive.code:     SaveStream.Write(fQueue[I].DemandID);
      SaveStream.Write(fQueue[I].JobStatus, SizeOf(fQueue[I].JobStatus));
    end;
  end;
  
  
  procedure TKMDeliveries.Load(LoadStream: TKMemoryStream);
  var I: Integer;
  begin
    {$IFDEF WDC}
    if CACHE_DELIVERY_BIDS then
  
negative.code:     LoadStream.Read(fQueue[I].DemandID);
      LoadStream.Read(fQueue[I].JobStatus, SizeOf(fQueue[I].JobStatus));
    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;
  
  
  