[KOOL]

Код:

  while sz>0 do begin
    BlockRead(f,a,512,ss);
    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;
    CloseFile(f);

закрывать файл надо после его чтения, а не во время него
и еще:

Код:

f: File of byte;

либо

Reset(f,1);