anchor.diff:  begin
     Inherited;
     LoadStream.Read(fHouse, 4);
  -  LoadStream.Read(TaskID);
  +  LoadStream.Read(buildID);
     LoadStream.Read(LocCount);
     LoadStream.Read(CurLoc);
     for i:=1 to length(Cells) do
     begin
  -    LoadStream.Read(Cells[i].Loc, 4);
  +    LoadStream.Read(Cells[i].Loc);
       LoadStream.Read(Cells[i].Dir, SizeOf(Cells[i].Dir));
     end;
   end;
  
positive.code: procedure TTaskBuildField.Save(SaveStream:TKMemoryStream);
  begin
    inherited;
    SaveStream.Write(fLoc,4);
    SaveStream.Write(ID,4);
  end;
  
  
  
negative.code: procedure TTaskBuildWine.Save(SaveStream:TKMemoryStream);
  begin
    inherited;
    SaveStream.Write(fLoc);
    SaveStream.Write(buildID);
  end;
  
  
  