anchor.diff:      LoadStream.Read(count);
       for I := 0 to count - 1 do
       begin
  -      LoadStream.Read(key, SizeOf(key));
  -      LoadStream.Read(bid, SizeOf(bid));
  +      LoadStream.Read(key.FromP);
  +      LoadStream.Read(key.ToP);
  +      LoadStream.Read(bid.Value);
  +      LoadStream.Read(bid.TimeToLive);
         fBidsCache.Add(key, bid);
       end;
     end;
  
positive.code: 
    TKMDeliveryBid = record
      Value: Single;
      TimeToLive: Word; //Cached bid time to live, we have to update it from time to time
    end;
    {$ENDIF}
  
  
negative.code: 
        for key in cacheKeyArray do
        begin
          SaveStream.Write(key.FromP);
          SaveStream.Write(key.ToP);
          bid := fBidsCache[key];
          SaveStream.Write(bid.Value);
          SaveStream.Write(bid.TimeToLive);
        end;
      end;
  
  