[Dead_Gigabit]

Сообщение от Страдалецъ

Немного не так. FindFirst так можно использовать только если имя файла уникально в каталоге, а вот когда речь идет о поисковой маске, то уже использовать надо FindNext. Почитайте литературу, как правильно пользоваться этими функциями.

Да имя файла уникально просто я дал кусок кода, дальше когда программа находит фаилик она переносит его в папку дня и каталог не содержит папок с расширением doc,xls,txt... я сделал так как ты сказал:

Код:

ArrExt := VarArrayOf(['txt','dbf','xls','877']);
 for i := 0 to VarArrayHighBound(ArrExt,1)
 do begin
     Path := Format('%s*.%s',[edit1.text,ArrExt[i]]);
  Attr := faReadOnly + faArchive;
  FindFirst(Path, Attr, F);
 end;

Добавив end в нужное место теперь все замечательно работает спасибо....