FDELPHI  6
Readonly属性のついたファイルのバイトアクセス

　みなさん、こんにちは。

Delphi1 を使っています。
ファイルを１バイトづつアクセスしたかったので、

var
  fp: file of Byte;
  b: Byte;


  AssignFile(fp,'FILENAME.EXT');
  Reset(fp);
  
  while not eof(fp) do begin
    Read(fp, b);
  end;
  CloseFile(fp);

なんてやっていました。これで、通常のファイルは何ら問題無くアクセスできて
いたのですが、Readonly 属性のついたファイルを読もうとした場合、Reset で読
み書き両用にオープンしようとするようで、ファイルアクセスエラーになってし
まいます。どうすれば、このエラーが出ないように Readonly 属性のついたファ
イルを１バイトづつ読むことができるでしょうか。
どなたかご存じの方、ご教示いただけると幸いです。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　としき