как добавить в listbox файлы(пишу с помощью bassplayer)(Listbox+opendialog=play )

[N!ckeL]

Можно так:

type
 FileInList = record
 name, path=string;
end;
var
 FilesInList: array [0..50] of FileInList;

Использование:

for i:=0 to 50 do
begin
 if ListBox1.Items.Strings[ListBox1.ItemIndex]=FilesInList[i].name then
//путь к файлу будет в FilesInList[i].path
end;

[mikoto]

а вот и оптимальное решение вашего спора, пусть и с опозданием)

procedure TfrmMain.btnOpenClick(Sender: TObject);
var i:integer;
//-----------------
begin
if dlgOpen.Execute then
begin
for i:=0 to dlgOpen.Files.Count-1 do
begin

ListBox1.Items.Add(ExtractFileName( DlgOpen.Files.Strings[i]));

end;
Include(SNDEffects, seEqualizer);
frmMain.ClientHeight:= 419;
eqPanel.Visible:= True;
frmMain.Position:= poScreenCenter;
BASS_SetSoundEffects(SNDEffects);
end;
end;