Иногда нужно воспроизвести аудиофайл без стороннего компонента. Для wav можно использовать функцию PlaySound('sound.wav', 0, 0), объявленную в модуле MMSystem.pas.
 А если файл другого формата? Для этого в MMSystem есть более сложная функция.

Выложите на форму две кнопки (TButton) и TEdit. На одной кнопке напишите "Воспроизведение", на другой "Стоп".
 В Edit будет вводиться путь в аудиофайлу.

uses MMSystem;
...
procedure TForm1.Button1Click; 
begin
  MCISendString(pchar('play ' + Edit1.Text), nil, 0, handle);
end;

В поле Edit1 указываем путь для аудиофайла, причем он может быть многих форматов (wav, midi sequence, mp3 и т.д).


Для остановки воспроизведения в обработчике onClick второй кнопки напишите:

procedure TForm1.Button2Click; 
begin
  MCISendString(pchar('stop ' + Edit1.Text), nil, 0, handle);
end;
	
