anchor.diff:      procedure GaveDemand(aID:integer);
       procedure CloseDelivery(aID:integer);
       procedure AbandonDelivery(aID:integer); //Occurs when unit is killed or something alike happens
  +    procedure Save(SaveStream:TMemoryStream);
       function WriteToText():string;
     end;
   
  
positive.code: end;
  
  
  function TKMDeliverQueue.WriteToText():string;
  var i:integer;
  begin
  
negative.code:     function  AskForHouseRepair(KMWorker:TKMUnitWorker; aLoc:TKMPoint):TUnitTask;
      procedure CloseHouseRepair(aID:integer);
      procedure RemoveHouseRepair(aHouse: TKMHouse);
      //procedure Save(SaveStream:TMemoryStream);
    end;
  
  implementation
  