Проблемка с добавлением файлов.

[blackstersl]

Привет. Написал код для добавления файлов(.мр3) в listbox целой папкой(плеер пишу через bassplayer), но при воиспроизведении ошбку выбивает. Вот код:

procedure TForm1.N1Click(Sender: TObject);
var
cDir, path: String;

begin
    if dialog1.Execute then
   cDir:= dialog1.Path+'/';
  PlayList(cDir);
   If ListBox1.Items.Count > 0 Then
  Begin
    ListBox1.ItemIndex := 0;
    bassplater1.play;
      End;
end;

В чём ошибка, или добавить надо что то? Заранее спасибо.

[KORN]

ну так нужно указать файл для воспроизведения

и что значит PlayList(cDir)?

[blackstersl]

Взял из исходника

procedure TForm1.playlist(path: string);
var
 SearchRec: TSearchRec;
    LpBuf: PChar;
 sWinDir: String;
begin
         if findfirst(Path + '*.mp3', faanyfile, searchrec)=0 then
         begin
         listbox1.Items.Add(searchrec.Name);
         while (FindNext(SearchRec) = 0) do
    ListBox1.Items.Add(SearchRec.Name);
    end;
    If ListBox1.Items.Count > 0 Then
   ListBox1.ItemIndex := 0;
   end;