[Моклев]

хорошо, с потоками разобрался, тогда такой вопрос:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var s: TFileStream;
    f: File;
    ss,i,sz: Integer;
    a: array [0..511] of Byte;
begin
If OpenDialog1.Execute then begin
  AssignFile(f,OpenDialog1.FileName);
  Reset(f);
  sz:=FileSize(f);
  Caption:=IntToStr(sz)+' байт';
  Memo1.Text:='';
  while sz>0 do begin
    BlockRead(f,a,512,ss);
    CloseFile(f);
    If RadioButton2.Checked then for i:=0 to ss-1 do Memo1.Text:=Memo1.Text+'#'+IntToStr(a[i]);
    If RadioButton1.Checked then for i:=0 to ss-1 do  Memo1.Text:=Memo1.Text+Chr(a[i]);
    sz:=sz-ss;
  end;
end;
end;

в строке

Код:

BlockRead(f,a,512,ss);

возникает ошибка "I/O Error 998" или "I/O Error 103"

что не так? кто знает, помогите