Так поставь защиту на отрицательные значения в методах doPosition всех элементов.
А не "Ха"

+к этому можно переопределить SeekMemStream в SharedMethods так, чтобы вместо SetSize(NewPos) ограничивалось NewPos