[saurn]

что то не получилось ( »

Конечно, ведь это просто пример. Имя файла, который нужно найти вы, наверняка, не указали.

Код:

procedure DirEditOnChange(Sender: TObject);
begin
    SearchFile(WizardDirValue(), //Путь к папке, в которой производится поиск файла. В данном случае путь берется из DirEdit.
    'MyProg.exe'); //Имя файла, который ищем.
end;