anchor.diff:      LoadStream.Read(fOffer[i].IsDeleted);
     end;
   
  -  LoadStream.Read(DemandCount);
  -  SetLength(fDemand, DemandCount+1);
  -  for i:=1 to DemandCount do
  +  LoadStream.Read(fDemandCount);
  +  SetLength(fDemand, fDemandCount+1);
  +  for i:=1 to fDemandCount do
     with fDemand[i] do
     begin
       LoadStream.Read(Resource, SizeOf(Resource));
  
positive.code:   Assert(aResource <> rt_None, 'Demanding rt_None');
  
    for k:=1 to aCount do begin
      i:=1; while (i<=DemandCount)and(fDemand[i].Resource<>rt_None) do inc(i);
      if i>DemandCount then begin
        inc(DemandCount, LENGTH_INC);
        SetLength(fDemand, DemandCount+1);
        for j:=i to DemandCount do FillChar(fDemand[j],SizeOf(fDemand[j]),#0); //Initialise the new queue space
      end;
  
      with fDemand[i] do begin
  
negative.code: var i:integer;
  begin
    assert(aUnit <> nil);
    for i:=1 to fDemandCount do
    if fDemand[i].Loc_Unit=aUnit then
    begin
      if fDemand[i].BeingPerformed then
  