"Всунуть" файл в файл или как написать инжектор

procedure TForm1.Button1Click(Sender: TObject);
const
  Fn1 = 'files\file1.dat';
  Fn2 = 'files\file2.dat';
var
  Fs1, Fs2 : TFileStream;
  Path : String;
  Buff : array of Byte;
  Len, Offs : Integer;
begin
  Path := ExtractFilePath(ParamStr(0));
  Fs1 := TFileStream.Create(Path + Fn1, fmOpenRead + fmShareDenyWrite);
  try
    Fs2 := TFileStream.Create(Path + Fn2, fmOpenWrite + fmShareDenyWrite);
    try
      //Количество копируемых байт.
      Len := 256;
      //Проверяем размер исходного файла.
      if Fs1.Size < Len then
        raise Exception.Create('Исходный файл слишком мал.');
      //Смещение в целевом файле от начала до элемента №365.
      Offs := 365 - 1;
      //Проверяем размер целевого файла.
      if Fs2.Size < Offs + Len then
        raise Exception.Create('Целевой файл слишком мал.');
      //Выделяем память для буфера.
      SetLength(Buff, Len);
      //Копируем байты из исходного файла.
      Fs1.Read(Buff[0], Len);
      //Перемещаем указатель к начальной позиции записи.
      Fs2.Seek(Offs, 0);
      //Выполняем запись скопированных байтов.
      Fs2.Write(Buff[0], Len);
    finally
      FreeAndNil(Fs2);
    end;
  finally
    FreeAndNil(Fs1);
  end;
end;