Недавно нашел на форуме код (http://pda.delphimaster.net/?id=1208898067&n=7)

procedure PlayerNotify(Sender: TObject);
begin
with Sender as TMediaPlayer do begin
  If Mode = mpStopped then begin
    If NeedThemeSound then begin
      Filename := '1.mid';
      DeviceType := dtAutoSelect;
      Open;
      Play;
      Notify := True;
    End;
  End;
end;
end;

procedure PlayerPreNotify(Sender: TObject);
begin
With (Sender as TMediaPlayer) do begin
If Mode = mpStopped then begin
Filename := '1.mid';
DeviceType := dtAutoSelect;
Open;
Play;
Notify := True;
End;
End;
End;

Не могу разобраться как он работает. Кто может киньте мне на мыло исходник (SW555@mail.ru)