Код:
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);