anchor.diff:        fOffer[iO].IsDeleted := True
       else
         CloseOffer(iO);
  +
  +  UpdateOfferItem(aID);
   end;
   
   
   //Resource has been delivered to Demand
   procedure TKMDeliveries.GaveDemand(aID: Integer);
  -var iD: Integer;
  +var
  +  iD: Integer;
   begin
     gLog.LogDelivery('Gave demand from delivery ID ' + IntToStr(aID));
     iD := fQueue[aID].DemandID;
  
positive.code: 
    if Assigned(fQueue[aID].Item) then
      fQueue[aID].Item.Delete;
  end;
  
  
  
negative.code:   Dec(fDemand[iD].BeingPerformed); //Remove reservation
  
    if (fDemand[iD].DemandType = dtOnce)
      or (fDemand[iD].IsDeleted and (fDemand[iD].BeingPerformed = 0)) then
      CloseDemand(iD); //Remove resource from Demand list
    UpdateDemandItem(iD);
  end;
  
  
  