怎样把wav文件写进exe里面，然后导出来成wav文件？

举个列：
var
  Form1: TForm1;implementation{$R *.DFM}
{$R YourName.RES}  //重要哟(^_^)!!!!!!!!!!!!procedure TForm1.FormCreate(Sender: TObject);
Var
  h,no: THandle;
  p: pointer;
  MyFStream: TFileStream;
begin
  h := FindResource(hInstance,'love4cz','Stream');
  no:=SizeofResource(hinstance,h);
  h := LoadResource(hInstance, h);
  p := LockResource(h);
 If FileExists('.\YourName.wav')=False then//如果WAV文件不存在的话，执行以下语句.
   begin
   MyFStream := TFileStream.Create('.\YourName.wav', fmCreate);
   MyFStream.WriteBuffer(p^,no);
   MYFStream.Free;
   UnLockResource(h);
   FreeResource(h);
   end;
end;