anchor.diff:  end;
   
   
  +{ TKMDeliveryRouteCalcCost }
  +function TKMDeliveryRouteCalcCost.IsValid: Boolean;
  +begin
  +  Result := Pass <> tpNone;
  +end;
  +
  +
   { TKMDeliveryBid }
   constructor TKMDeliveryBid.Create(aSerf: TKMUnitSerf);
   begin
  
positive.code:     begin
        bestImportance := fDemand[oldDWT,oldD].Importance;
        bid := TKMDeliveryBid.Create(bestImportance, aSerf, oWT, oldDWT, iO, oldD);
        if TryCalculateBid(dckFast, bid, aSerf) then
          fBestBidCandidates.Push(bid)
        else
          bid.Free;
  
negative.code:   TKMDeliveryRouteCalcCost = record
      Value: Single;
      Pass: TKMTerrainPassability;
      function IsValid: Boolean;
    end;
  
    TKMDeliveryBid = class
  