anchor.diff:                begin
                   fQueue.fBestBidCandidates.Push(bid);
                   bestImportance := bid.Importance;
  -              end;
  +              end
  +              else
  +                bid.Free;
               end;
   
         bid := fQueue.ChooseBestBid(bestImportance);
  
positive.code:             begin
                fBestBidCandidates.Push(bid);
                bestImportance := bid.Importance;
              end;
            end;
  
          bid := ChooseBestBid(bestImportance, aSerf);
  
negative.code:         serfBid := fQueue.ChooseBestSerfBid(offerPos);
  
          if serfBid <> nil then
          begin
            fQueue.AssignDelivery(bid.OfferID, bid.DemandID, serfBid.Serf);
            serfBid.Free;
          end;
          bid.Free;
        end;
      end;
    finally
      {$IFDEF PERFLOG}
  