anchor.diff:        bestImportance := fDemand[oldD].Importance;
         bid := TKMDeliveryBid.Create(bestImportance, aSerf, iO, oldD);
         if TryCalculateBid(dckFast, bid, aSerf) then
  -        fBestBidCandidates.Push(bid);
  +        fBestBidCandidates.Push(bid)
  +      else
  +        bid.Free;
       end
       else
       begin
  
positive.code:         begin
            fBestBidCandidates.Push(bid);
            bestImportance := bid.Importance;
          end;
        end;
  
      bid := ChooseBestBidBasic(bestImportance, allowOffroad);
  
negative.code:           begin
              fBestBidCandidates.Push(bid);
              bestImportance := bid.Importance;
            end
            else
              bid.Free;
          end;
  
          bid := ChooseBestBidBasic(bestImportance, allowOffroad);
  