anchor.diff:    {$ENDIF}
   
   var
  -  BelowOfferPos: TKMPoint;
     SerfBidValue: Single;
     {$IFDEF WDC}
     BidKey: TKMDeliveryBidKey;
  
positive.code: 
  function TKMDeliveries.TryCalculateBidBasic(iO, iD: Integer; var aBidBasicValue: Single; aSerf: TKMUnitSerf = nil): Boolean;
  begin
    Result := TryCalculateBidBasic(fOffer[iO].Loc_House.UID, fOffer[iO].Loc_House.Entrance, fOffer[iO].Count,
                                   fOffer[iO].Loc_House.HouseType, fOffer[iO].Loc_House.Owner, iD, aBidBasicValue, aSerf);
  end;
  
  
negative.code:   Result := TryCalcSerfBidValue(aSerf, aOfferPos, aOfferUID, SerfBidValue);
    if not Result then
      Exit;
  
    {$IFDEF WDC}
    if CACHE_DELIVERY_BIDS then
  