С помощью процедур BlockRead и BlockWrite добавить к первому файлу содержимое второго файла

procedure TForm1.Button1Click(Sender: TObject);
const
  Fn1 = 'file1.dat';
  Fn2 = 'file2.dat';
  Fn3 = 'file3.dat';
var
  F1, F2, F3 : File;
  StrBuff : String;
  Cnt : Integer;
begin
 
  //Записываем в файлы 1 и 2 какое-нибудь содержимое.
 
  AssignFile(F1, Fn1);
  //Создаём/пересоздаём первый файл. И открываем его в режиме "только запись".
  //Минимальный размер обрабатываемых блоков устанавливаем равным одному байту.
  Rewrite(F1, 1);
  StrBuff := 'Это содержимое первого файла.';
  BlockWrite(F1, Pointer(StrBuff)^, Length(StrBuff));
 
  AssignFile(F2, Fn2);
  Rewrite(F2, 1);
  StrBuff := 'Это содержимое второго файла.';
  BlockWrite(F2, Pointer(StrBuff)^, Length(StrBuff));
 
  //Устанавливаем размер буфера данных равным 1000 байт.
  SetLength(StrBuff, 1000);
 
  //В третий файл сохраняем содержимое первого файла.
  AssignFile(F3, Fn3);
  Rewrite(F3, 1);
  //Открываем первый файл в режиме "чтение/запись".
  //Минимальный размер обрабатываемых блоков устанавливаем равным одному байту.
  Reset(F1, 1);
  while not Eof(F1) do begin
    BlockRead(F1, Pointer(StrBuff)^, Length(StrBuff), Cnt);
    BlockWrite(F3, Pointer(StrBuff)^, Cnt);
  end;
 
  //К содержимому первого файла добавляем содержимое второго файла.
  Reset(F1, 1);
  //Перемещаем файловый указатель в конец первого файла.
  Seek(F1, FileSize(F1));
  Reset(F2, 1);
  while not Eof(F2) do begin
    BlockRead(F2, Pointer(StrBuff)^, Length(StrBuff), Cnt);
    BlockWrite(F1, Pointer(StrBuff)^, Cnt);
  end;
 
  //К содержимому второго файла добавляем содержимое третьего файла.
  //В третьем файле у нас, как раз, хранится первоначальная копия содержимого
  //первого файла.
  Reset(F2, 1);
  //Перемещаем файловый указатель в конец второго файла.
  Seek(F2, FileSize(F2));
  Reset(F3, 1);
  while not Eof(F3) do begin
    BlockRead(F3, Pointer(StrBuff)^, Length(StrBuff), Cnt);
    BlockWrite(F2, Pointer(StrBuff)^, Cnt);
  end;
 
  //Закрываем файлы.
  CloseFile(F1);
  CloseFile(F2);
  CloseFile(F3);
end;