[angvelem]

Вариант:

Код:

function FindFiles(const Path : String) : Integer;
var
  S	: TSearchRec;
  Res	: Integer;
begin
  Result := 0;
  Res := FindFirst(Path + '\*.mp3', faAnyFile - faVolumeID, S);
  while Res = 0 do
  begin
    with S do
      if (Name <> '.') and (Name <> '..') then
      begin
        ListBox1.Items.Add(Path + '\'+ Name);
        inc(Result);
      end; 
    Res := FindNext(S);
  end;
  FindClose(S);
end;