Воспроизведение аудио файлов .ogg, Как это сделать? проект прилагается. Опции

[kvadrat]

Прочитал кучу инфы про это, но так и не понял как заставить мой проигрыватель воспроизводить ogg. Понял только что надо подключить какую-то библиотеку и что то с ней сделать, но так и не понял какую и что. Подскажите пожалуйсто?
 player2.zip ( 10.87 килобайт ) Кол-во скачиваний: 505

[volvo]

Библиотека Bass. Подключаешь и смотришь в примерах файл bass24\delphi\BassTest\BTMain.pas, как реализуется загрузка/проигрывание/остановка файла любого формата...

[kvadrat]

Библиотека Bass. Подключаешь и смотришь в примерах файл bass24\delphi\BassTest\BTMain.pas, как реализуется загрузка/проигрывание/остановка файла любого формата...

Подключил, посмотрел, но мне не понятно как этот код преобразовать, если у меня вместо кнопки Play - TMediaPlayer, а вместо TListBox - DBLookupListBox, подскажи пожалуйста?

procedure TForm1.Button3Click(Sender: TObject);
var
	i: Integer;
begin
	i := ListBox3.ItemIndex;
	// Play the stream (continuing from current position)
	if i >= 0 then
		if not BASS_ChannelPlay(strs[i], False) then
			Error('Error playing stream!');
end;