anchor.diff:    key.FromP := FromP;
     key.ToP := ToP;
     bid.Value := aValue;
  -  bid.Kind := aKind;
  +  bid.RouteStep := aKind;
     bid.CreatedAt := gGameParams.GameTick;
     inherited Add(key, bid);
   end;
  
positive.code: 
    TKMDeliveryBid = record
      Value: Single;
      Kind: TKMDeliveryBidKind;
      CreatedAt: Integer; //Cached bid time to live, we have to update it from time to time
      function GetTTL: Integer;
      function IsExpired(aTick: Integer): Boolean;
  
negative.code: procedure TKMDeliveries.Save(SaveStream: TKMemoryStream);
  var
    I: Integer;
  begin
    SaveStream.PlaceMarker('Deliveries');
    SaveStream.Write(fOwner);
  