Работа с файлом (непонятный вылет без сообщения об ошибке)

type
  ArrofChar = array [0..255] of char;
 
  function Tform1.FileSize(fileName : wideString) : Int64;
 var
   sr : TSearchRec;
 begin
   if FindFirst(fileName, faAnyFile, sr ) = 0 then
      result := Int64(sr.FindData.nFileSizeHigh) shl Int64(32) + Int64(sr.FindData.nFileSizeLow)
   else
      result := -1;
 
   FindClose(sr) ;
 end;
 
procedure TForm1.Button1Click(Sender: TObject);
Var
fname:string;
buf,R1 : array of char;
i,j,bloclen:integer;
buf2: array of char;
size:int64;
 
begin
 randomize;
 Fname:=edit1.text;
 AssignFile (dataIn,fname); 
 Reset(dataIn, 1);
 size:=FileSize(fname);
 
 for i:=0 to 255 do R1[i]:=chr(i); // не важны значения привожу тестовый вариант программы
 
 size:=Filesize(fname);
 
 if  (size mod 256 <>0) then begin //тут дописывает файл до кратности 256
 bloclen:=256-(size mod 256);       //тут ошибок нет
 FileSeek(TFileRec(Datain).Handle, size, 0);
 setlength(buf2,bloclen);
 for i:=0 to bloclen-1 do buf2[i]:=chr(random(10));
 BlockWrite(DataIn, Buf2[0], length(buf2));
end;
 
 
 size:=FileSize(fname);
    FileSeek(TFileRec(Datain).Handle, 0, 0);
         ki:=-256;     
 
         //выясненно что если этот цикл выполняется то только после него возможен вылет
       for i:=0 to round(size/256)-1 do begin
         BlockRead (DataIn,Buf[0], length(buf)); 
         for j:=0 to 255 do buf[j]:=chr((ord(buf[j])+ord(r1[j])) mod 256);  // тоже не играет роли
                                                                                       // какие значения попадут в массив
          ki:=ki+256;
          FileSeek(TFileRec(Datain).Handle, ki, 0);
          BlockWrite (DataIn, Buf[0], length(buf));
         end;
 
   //вылет происходит при закрытии файла
  CloseFile(DataIn);
 
end;

//Обработка файла частями по 256 байт.
procedure TForm1.Button1Click(Sender: TObject);
const
  Fn = 'file.dat'; //Имя файла.
var
  F : File;
  Path : String;
  Buf : AnsiString;
  i, Cnt : Integer;
begin
  //Путь к папке, в которой лежит исполняемый файл программы.
  Path := ExtractFilePath(ParamStr(0));
  //Связываем файловую переменную с именем файла.
  AssignFile(F, Path + Fn);
  //Открываем файл для чтения и записи. При этом задаём размер наименьшего блока
  //чтения/записи, равным 1 байт.
  Reset(F, 1); //SizeOf(AnsiChar) = 1.
  try
    //Чтение данных из файла и их обработка частями по 256 блоков (байт).
    SetLength(Buf, 256);
    while not Eof(F) do
    begin
      BlockRead(F, Buf[1], Length(Buf), Cnt); //Cnt - количество реально прочитанных блоков.
      //Обработка прочитанных данных.
      for i := 1 to Cnt do
      begin
        if Buf[i] = #10 then
        begin
          {...}
        end;
        {...}
      end;
    end;
  finally
    //Закрываем файл.
    CloseFile(F);
  end;
end;

//Установка для файла размера, кратного 256 байтам.
procedure TForm1.Button1Click(Sender: TObject);
const
  Fn = 'file.dat'; //Имя файла.
var
  F : File;
  Path : String;
  Size : Integer;
begin
  //Путь к папке, в которой лежит исполняемый файл программы.
  Path := ExtractFilePath(ParamStr(0));
  //Связываем файловую переменную с именем файла.
  AssignFile(F, Path + Fn);
  //Открываем файл для чтения и записи. При этом задаём размер наименьшего блока
  //чтения/записи, равным 1 байт.
  Reset(F, 1);
  try
    //Размер файла устанавливаем кратным 256-ти блокам (у нас 1 блок = 1 байт).
    Size := FileSize(F); //Текущий размер файла.
    if Size mod 256 <> 0 then //Если размер файла не кратен 256 блокам.
    begin
      //Устанавливаем файловый указатель на позицию, где будет расположен новый конец файла.
      Seek(F, Size + (256 - Size mod 256));
      //Задаём новый размер файла по текущей позиции файлового указателя.
      Truncate(F);
    end;
  finally
    //Закрываем файл.
    CloseFile(F);
  end;
end;