title: block read error
body: <p>Can anybody please explain me why I am hitting 'I/O error 998' in the below block read?</p>
  
  <pre><code>function ReadBiggerFile: string;
  var
    biggerfile: file of char;
    BufArray: array [1 .. 4096] of char; // we will read 4 KB at a time
    nrcit, i: integer;
    sir, path: string;
  begin
    path := ExtractFilePath(application.exename);
    assignfile(biggerfile, path + 'asd.txt');
    reset(biggerfile);
    repeat
      blockread(biggerfile, BufArray, SizeOf(BufArray), nrcit);
      for i := 1 to nrcit do
      begin
        sir := sir + BufArray[i];
        Form4.Memo1.Lines.Add(sir);
      end;
    until (nrcit = 0);
    closefile(biggerfile);
    ReadBiggerFile := sir;
  end;
  </code></pre>