Откат записи в файл

[Khayzenberg]

Доброго времени суток! Припустим есть код:

mfs:=TFileStream.Create(FileName, fmOpenWrite);
TRY
  TRY
    mfs.Position:=myPosition;
    mfs.WriteBuffer(data1, sizeof(data1));
    mfs.WriteBuffer(data2, sizeof(data2));
    mfs.WriteBuffer(data3[1], sizeof(data3)*2);
    mfs.WriteBuffer(data4, sizeof(data4));
  EXCEPT
    on e:exception do begin {Здесь провести откат при ошибке записи} end;
  END;
FINALLY
  FreeAndNil(mfs);
END;

Так вот, задача состоит в следующем, если возникает ИС при записи данных в файл. То тогда в розделе EXCEPT реализовать откат записи(убрать записанние данные).
У меня есть одна идея алгоритма:
Если запись осуществлялась в конец файла его просто обрезать(if myPosition=mfs.Size then mfs.Size:=myPosition), иначе файл переписать начиная с 1-го байта и до myPosition(в другой файл). И у немуже добавить часть начиная с mfs.Position(укажет где остановилась запись) и до последнього байта.
Кстати, этот блок состоит из разних типов данных:

  mfs.WriteBuffer(data1, sizeof(data1));//integer
mfs.WriteBuffer(data2, sizeof(data2));//real
mfs.WriteBuffer(data3[1], sizeof(data3)*2);//string в кожному такому блоці можлива різна довжина рядка
mfs.WriteBuffer(data4, sizeof(data4));//extended

И сам файл. Состоит из этих данных.
Извините за нагруженость информацией, просто нехотел ничего упустить.
Так вот вопрос в том правильно ли я думаю над алгоритмом отката данных? Может кто-то посоветует лучший алгоритм.

[Аватар]

если возникает ИС при записи данных в файл. То тогда в розделе EXCEPT реализовать откат записи(убрать записанние данные)

Где гарантия, что при откате не возникнет новая ИС? Лучше держать копию файла на случай ИС при записи

[Khayzenberg]

Сообщение от Аватар

Где гарантия, что при откате не возникнет новая ИС? Лучше держать копию файла на случай ИС при записи

Все гениальное просто! Спасибо за помощь!