为什么这段代码打开rm 的某些文件会出错？？？而有些rm不会出错，而打开mp3确全部都出错???(50分)

function wfilesize(filenameandpath:string):integer
//文件大小－－－－byte
var//filenameandpath 的输入值为路径加文件名
f: file of Byte;
size: Longint;

begin
try
AssignFile(f, filenameandpath);
Reset(f);
size:=FileSize(f);
CloseFile(F);
result:= size

except
MessageDlg(filenamepath+'文件打开出错!',mtWarning, [mbYes],0);
end;
end
为什么这段代码打开rm 的某些文件会出错？？？而有些rm不会出错，而打开mp3确全部都出错???

FileMode := fmOpenRead;
AssignFile(f, filenameandpath);

估计是没有以只读方式打开文件，加上第一句就可以了。