不知道为什么这么一个简单的问题都出错。请各位看看，好久没写DELPHI了，都不认我了。(200分)

MediaValue :
property MediaValue: TByteDynArray read FMediaValue write FMediaValue;
TByteDynArray array of byte;
这个上面是我的数据类型定义；
try
filename := dir + '/'+mfile.MediaFileName;
Fs := Tfilestream.Create(filename,fmopenwrite or fmcreate);
fs.Position :=0;
fs.WriteBuffer(mfile.MediaValue,length(mfile.MediaValue));
finally
fs := nil;
end;

writebuffer 时出错。 i/o Error
或者哪位提供一个写文件的例子给我也行。

就是把一个BYTE数组的数据写到一个指定的文件中，这个文件没有就创建它；

没头没尾，也没有错误提示，看不出来。

fs.WriteBuffer(mfile.MediaValue[0],length(mfile.MediaValue));

应该是:fs.WriteBuffer(mfile.MediaValue,sizeof(mfile.MediaValue));

是三楼的答对了。
四楼的答错了。