一个多媒体的Api函数的问题？

Question

我在程序中利用了多媒体mmsystem单元的Api函数mcisendcommand写了一个函数，但是如果利用此函数播放文件后，程序可以播放文件，但是不能响应其他事件，即窗体不能响应事件，窗体会发白。是不是要写一个线程。但是我看了Delphi自带组件MediaPlayer的MPlayer单元中的代码，发现其中并没有线程代码。各位大侠请问如何实现？
function PlayMedia(filename:String):Integer;stdcall;
var
  OpenParm:TMCI_Open_Parms;
  PlayParm: TMCI_Play_Parms;
  Error: Longint;
begin
  OpenParm.dwCallback := 0;
  OpenParm.lpstrDeviceType := PChar(typeDevice);
  OpenParm.lpstrElementName := PChar(filename);
  Error:=mciSendCommand(1, mci_Open,mci_Wait or MCI_OPEN_ELEMENT, Longint(@OpenParm));
  if Error=0 then
  begin
    PlayParm.dwCallback := 1;
    mciSendCommand(1, mci_Play, mci_Wait, Longint(@PlayParm));
  end
  else
    raise Exception.Create('不能识别该音频格式!');
end;