Ошибка при чтении с сетевого диска(+)

[_Ural_]

Везде , кроме сетевых дисков все работает, опробованные варианты закоментированы {}
C сетевого диска вылетает ошибка 103. Или сразу (если не делать паузы-сейчас отключена) или при непосредственном выполнении Read или BlockRead...
Delphi7
Есть идеи?

var
  Form1: TForm1;
  Bin: array[0..8191] of Byte;  

procedure TForm1.LoadClick(Sender: TObject);
var
  f:file of byte;
  i:Integer;
begin
  if dlgOpen1.Execute then
  begin
    Form1.Refresh;
    AssignFile(f,dlgOpen1.FileName);
        {
    repeat
    i:=IOResult;
    until i=0;
       }
    {$I-}
    Reset(f);
    {$I+}
      {
    repeat
    i:=IOResult;
    until i=0;
     }

    if IOResult<>0 then
    begin
      Ind.Caption:=IntToStr(i);
      Application.MessageBox  (
                              PAnsiChar('Ошибка ввода-вывода' ),
                              'Внимание',
                              MB_ICONWARNING);
      exit;
    end;
    BlockRead(f,Bin,8191);
    {
    for i:=0 to 8191 do
    begin
      Read(f,Bin[i]);
    end;
    }
    CloseFile(f);
end;

[Sciv]

103 - файл закрыт.

Может, проблема в доступе к сетевому ресурсу?

Или сразу (если не делать паузы-сейчас отключена)

А если пауза включена - нормально открывает? Видимо, файл по сети открывается дольше, чем к нему начинает обращаться команда чтения.

[_Ural_]

Да, малость тормознул, проблема действительно в правах доступа к диску.
При наличии прав на запись работает нормально.
Но при доступе только на чтение - ошибка 103
Я неправильно понимаю роль AssignFile? (связь переменной с файлом-для чего тут права на запись?)
Как это обойти?

[FaTaL]

Используй лучше файловый поток TFileStream с параметром fmOpenRead и не будет такой ошибки.

[_Ural_]

Спасибо всем!!!