Спасибо.
Попробовал ваш вариант. Сам код вроде рабочий.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
R : TResourceStream;
begin
R := TResourceStream.Create(HInstance, '1', RT_RCDATA);
channel:=BASS_StreamCreateFile(false, R.memory, 0, 0, 0 ); //pchar('11.mp3')
bass_channelplay(channel,true);
end;
Но при нажатии на кнопку выдает ошибку.
Ошибка дэлфи:
erd10.jpg
Ошибка проекта:
erp.jpg
Нашел вот такую статью в интернете, попробую создать файл ресурсов по другому.
http://www.win-ni.narod.ru/lect/progres.htm
P.S. Пробовал при вызове файла прописывать его название по разному. Эффекта не дало.