anchor.diff:  
   procedure TTaskBuildRoad.Save(SaveStream:TKMemoryStream);
   begin
  -  inherited;
  +  Inherited;
     SaveStream.Write(fLoc);
     SaveStream.Write(BuildID);
     SaveStream.Write(DemandSet);
  
positive.code:   Inherited Create(aWorker);
    fTaskName := utn_BuildField;
    fLoc      := aLoc;
    buildID   := aID;
  end;
  
  
  
negative.code: 
  procedure TTaskBuildWall.Save(SaveStream:TKMemoryStream);
  begin
    Inherited;
    SaveStream.Write(fLoc);
    SaveStream.Write(buildID);
  end;
  