anchor.diff:  begin
     LoadStream.CheckMarker('Deliveries');
     LoadStream.Read(fOwner);
  +
  +  LoadStream.CheckMarker('Offers');
     LoadStream.Read(fOfferCount);
     SetLength(fOffer, fOfferCount+1);
   
  -  LoadStream.CheckMarker('Offers');
     for I := 1 to fOfferCount do
     begin
       LoadStream.Read(fOffer[I].Ware, SizeOf(fOffer[I].Ware));
  
positive.code:   inherited Add(key, bid);
  end;
  
  {$ENDIF}
  
  end.
  
negative.code: begin
    SaveStream.PlaceMarker('Deliveries');
    SaveStream.Write(fOwner);
  
    SaveStream.PlaceMarker('Offers');
    SaveStream.Write(fOfferCount);
  
    for I := 1 to fOfferCount do
    begin
      SaveStream.Write(fOffer[I].Ware, SizeOf(fOffer[I].Ware));
  