[valvl63]

lmikle
проверьте, пожалуйста, код процедуры.

Код:

procedure FindMp3(ADir : String; AFilter : String; ASubfolders : Boolean);