Проблема с порчей данных через BlockWrite

[Alex Cones]

Для работы со своим типом графических файлов. До некоторого момента все шло прекрасно и работало. Но работало по такому принципу:

1) OnFormCreate:

AssignFile(F, 'Temp.ftf');
Rewrite(F, 1);

2) OnWork:

BlockWrite(F, ... , ...);

3) OnClose:

CloseFile(F);

Открытие аналогично.

Не оптимально и глупо.

Начал переделывать так:

AssignFile(F, CurDir + 'Temp.ftf');
Reset(F, 1);
Seek(F, FileSize(CurDir + 'Temp.ftf'));
BlockWrite(F, ActiveTool, 1);
BlockWrite(F, V, SizeOf(Integer));
CloseFile(F);

Т.е. Дозапись действий в конец файла.

Дело в том, что такой подход стал "ломать" файлы.

1) Файл открывается:

AssignFile(F, FileName);
  Reset(F, 1);
  BlockRead(F, FTFA, SizeOf(Integer));
  BlockRead(F, X1, SizeOf(Integer));
  BlockRead(F, Y1, SizeOf(Integer));
  FRMMain.IMGMain.Width := X1;
  FRMMain.IMGMain.Height := Y1;
  While Not(Eof(F)) Do
   Begin
    BlockRead(F, Num, 1);
    Case Num Of
     1 : Begin
         BlockRead(F, V, SizeOf(Integer));
         UNTEffects.FVFL_AddBlue(FRMMain.IMGMain.Picture.Bitmap.Handle, V);
        End;
     ...
    End;
   End;
  CloseFile(F);

Открылся, нарисовался. Но если я сейчас попытаюсь дописать в конец команду, то файл ломается ПОЧТИ ПОЛНОСТЬЮ.
Например:
До:

46 54 46 41 08 00 00 00 08 00 00 00 0b ff 00 ff
00 0e 00 00 00 00 02 00 00

После:

46 54 46 41 20 03 00 00 58 02 00 00 07 00 00 00
00 00 00 00 00 07 00 00 00 07 00 00 00 00 ff ff

Что не так?

P.S. Не обращаем внимание на конструкцию FileSize(CurDir + 'Temp.ftf'). В лазарусе нужно давать путь к файлу, а не F.

Деталь:

Запись команды потерла все предыдущие, установило неправильно байты размера и ПРАВИЛЬНО записало байты последней команды.

Красный - байты сигнатуры файла.
Зеленый - Размеры изображения
Розовый - Номер команды
Черный - команда.