[valvl63]

Здравстрвуйте.
Делаю поиск mp3 файла.
Прописываю имя файла в edit1,
маска в combobox1,
выбор дисков в edit2.

Процедура:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

procedure Find; var    SearchRec: TSearchRec;    cDir: string; begin    GetDir(0,cDir);   if cDir[length(cDir)] <> '\' then cDir := cDir+'\';     if FindFirst(FileName,faAnyfile,SearchRec) = 0 then        repeat   if (SearchRec.Attr and faAnyfile) = SearchRec.Attr then begin   Form1.listbox1.Items.Add(cDir +  SearchRec.Name); end;      until FindNext(SearchRec) <> 0;   if FindFirst('*', faDirectory, SearchRec) = 0 then      repeat   if (SearchRec.Attr and faDirectory) = faDirectory then   if SearchRec.Name[1] <> '.' then begin   ChDir(SearchRec.Name);    Find;    ChDir('..'); end;      until FindNext(SearchRec) <> 0 ; end;

Что меня не устраивает - поиск производится по первой букве.
Тойсь. Если вписываю в edit1 слово Пугачева, тогда находит Пугачева - Айсберг, если пишу слово Айсберг - ничего не находит.
Дальше. На диске D ищет без ошибок,
на диске E с ошибкой "I/O error 123"
(пробовал использовать try except end) не помогает),
на диске C выскакивает сообщение "File not found", хотя файлы нужные
выводит в Listbox1.
Что тут может быть не так?
Помогите пожалуйста.
Извиняюсь, что поместил тему в Мультимедиа, так как это повязано с плейером.