在做MP3播放器的时候,我怎么把一个目录下的文件名导入LISTBOX中!!??各位大侠救命啊! (20分)

在做MP3播放器的时候,我怎么把一个目录下的文件名导入LISTBOX中!!??各位大侠救命啊!
最好来点代码演示!!!!!!

//先设置OpenDialog1的Options属性中ofAllowMultiSelect为true;
procedure TForm1.Button1Click(Sender: TObject);
begin

if OpenDialog1.Execute then

ListBox1.Items.Assign(OpenDialog1.Files);
end;

就是查找该目录下的所有文件了，用这个函数，自己改改用
procedure findall(disk,path: String;
var fileresult: Tstrings);

var
fpath: String;

fs: TsearchRec;

begin

fpath:=disk+path+'/*.*';

if findfirst(fpath,faAnyFile,fs)=0 then

begin

if (fs.Name<>'.')and(fs.Name<>'..') then

if (fs.Attr and faDirectory)=faDirectory then

findall(disk,path+'/'+fs.Name,fileresult)
else

fileresult.add(disk+strpas(strupper(pchar(path)))+'/'+strpas(
strupper(pchar(fs.Name)))+'('+inttostr(fs.Size)+')');

while findnext(fs)=0do

begin

if (fs.Name<>'.')and(fs.Name<>'..') then

if (fs.Attr and faDirectory)=faDirectory then

findall(disk,path+'/'+fs.Name,fileresult)
else

fileresult.add(disk+strpas(strupper(pchar(path)))+'/'+str
pas(strupper(pchar(fs.Name)))+'('+inttostr(fs.Size)+')');

end;


end;


findclose(fs);

end;

何必那么麻烦，使用FileListBox控件不就可以了，要什么文件就修改Mask属性[8D]

多人接受答案了。