Mediaplayer 控件用于录音时，提示文件名不可以用

Question

我用Mediaplayer 控件自编了一个录音程序，并新建了一个函数，用于创建新的录音文件，函数如下：
我在自己的机器上问题不大（win2000下开发的），一直可以正常录音。而且在XP机器上也能正常使用。但是当拿到我的用户那里的时候就发生了问题，当我输入录音文件名，然后点击开始录音，该函数出现问题，提示：Invalid filename。程序退出。不知道问题在哪里，有没有高手能解开此题？
procedure TForm3.CreateWav(channels : word; resolution : word; rate : longint; fn : string);
var
wf : file of TWavHeader;
wh : TWavHeader;
begin
wh.rId := $46464952;
wh.rLen := 36;
wh.wId := $45564157;  
wh.fId := $20746d66;  
wh.fLen := 16;  
wh.wFormatTag := 1;
wh.nChannels := channels;  
wh.nSamplesPerSec := rate;  
wh.nAvgBytesPerSec := channels*rate*(resolution div 8);
wh.nBlockAlign := channels*(resolution div 8);
wh.wBitsPerSample := resolution;
wh.dId := $61746164;  
wh.wSampleLength := 0;  assignfile(wf,fn); {打开对应文件 }  
rewrite(wf); {移动指针到文件头}  
write(wf,wh); {写进文件头 }
closefile(wf); {关闭文件 }  
end;