[Gareth]

Спасибо огромное за код!
Работает.

Но как воспроизвести трек по нажатию в листбоксе?
Нашёл в инете код:

Код:

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
                  Shift: TShiftState; X, Y: Integer);
                  var i: integer;
                begin
                if ListBox1.ItemIndex>=0 then
                begin
                i:= ListBox1.ItemIndex;
                BasicPlay(link[i]);
                end;
                 
                end;

Проблема со строкой BasicPlay(link[i]); Пишет Undeclared identifier: 'link'.
Что это за link, где и как его объявить ?