Проигрование Wav в Delphi

[TaYgA]

Всем доброго времени суток. Пишу прогрумму-будильник с возможностью выбора мелодии. Вот код проигрования мелодии:

var
   Wav: String;
begin
  Wav:=Form1.FileEdit.Text;
  PlaySound(Wav,0,SND_ASYNC or SND_LOOP);

Постоянно вылетает ошибка

[Error] CodeMessage.pas(52): Incompatible types: 'String' and 'PAnsiChar'

Я понимаю, что ошибка вылетает из-за несоответствия типов, но а как подругому написать, чтоб проигрывалась выбранная мелодия в FileEdit?!?!?

[ОДИНОЧЕСТВО В СЕТИ]

var
   Wav: PAnsiChar;
begin
Wav:=PAnsiChar(Form1.FileEdit.Text);

[TaYgA]

ОДИНОЧЕСТВО В СЕТИ, спасибо!!! Скажите, а будет ли команда

PlaySound(...,0,SND_ASYNC or SND_LOOP);

воспроизводить другие форматы музыки?!?! Вчасности MP3?!?!

[Alex Cones]

Нет ничего проще, чем попробовать.

[TaYgA]

Ясно, не будет Спасибо за помощь

[DomiNick]

Ещё так можно:

uses MMSystem;

...

procedure TForm1.FormCreate(Sender: TObject);
var uFlags: Cardinal;
begin
uFlags:=SND_ASYNC or SND_LOOP or SND_NODEFAULT; // играть одновременно с работой приложения, повторять, если файла не существует не сигналить звуком ошибки
sndPlaySound(PAnsiChar('C:\WINDOWS\system32\LoopyMusic.wav'), uFlags);
end;

[raxp]

пользуйтесь свойствами MCI

MCISendString(PChar('play ' + FileEdit.Text),nil,0,0);
...
MCISendString(PChar('stop ' + FileEdit.Text),nil,0,0);

[TaYgA]

Спасибо, поэксперементируем