Чтение и запись бинарных файлов.

[Poltish]

Всем доброго времени суток. Прошу помощи по следующему вопросу

Проблема в том, что работаю над программой, и понадобилось добавить функционал шифрования файла. HEX-код получать в RichEdit или Memo научился. А вот как его зашифровать? Как я себе это представлял:
Создание STRING - переменной (до 2-х Гб вроде глотает), чтение HEX-кода непосредственно в STRING'овую переменную, далее его обработка каким-либо алгоритмом (к примеру XOR) и сохранение уже в новый файл.
Прошу помочь поправить алгоритм (рыть далее буду уже сам, так как понять тему очень хочется), а так же подсказать или посоветовать литературу (статьи) по работе с BlockRead и BlockWrite, а так же как файл сохранить уже зашифрованный.
Благодарен всем кто не будет равнодушен

[BDA]

const
  x: byte = 16;
  bufsize = 1024;
var
  f1, f2: File;
  buf: array [1 .. bufsize] of byte;
  i, count: integer;
begin
  assignfile(f1, 'in.txt');
  assignfile(f2, 'out.txt');
  reset(f1, 1);
  rewrite(f2, 1);
  while not eof(f1) do
  begin
    BlockRead(f1, buf, bufsize, count);
    for i := 1 to count do
      buf[i] := buf[i] xor x;
    BlockWrite(f2, buf, count);
  end;
  closefile(f1);
  closefile(f2);
end;

[Poltish]

Сообщение от BDA

const
  x: byte = 16;
  bufsize = 1024;
var
  f1, f2: File;
  buf: array [1 .. bufsize] of byte;
  i, count: integer;
begin
  assignfile(f1, 'in.txt');
  assignfile(f2, 'out.txt');
  reset(f1, 1);
  rewrite(f2, 1);
  while not eof(f1) do
  begin
    BlockRead(f1, buf, bufsize, count);
    for i := 1 to count do
      buf[i] := buf[i] xor x;
    BlockWrite(f2, buf, count);
  end;
  closefile(f1);
  closefile(f2);
end;

Благодарю Сейчас сидел, проверял, додумался же записать пустой массив в файл) Убил файл)