Для поиска файлов на диске в Delphi существует две функции, первая из них - это FindFirst, ниже приведено ее описание:

type
    TSearchRec = record
    Time: Integer; // время создания
    Size: Integer; //размер файла в байтах
    Attr: Integer; // Атрибуты
    Name: TFileName; //имя файла
    ExcludeAttr: Integer; 
    FindHandle: THandle; //хандл на файл
    FindData: TWin32FindData; //доп. информация о файле
end;


Теперь приведу простой пример использования этой функции. Поставьте на форму одну кнопку TButton, а обработчик события OnClick у нее должен иметь примерно такой вид:

    procedure TForm1.Button1Click(Sender: TObject);
    var sr:TSearchRec;
    begin
    findFirst('*.exe',faAnyFile,sr);
    edit1.Text:=sr.Name;
    end;

Чтобы искать следующий такой же файл,  надо написать FindNext (Sr); Если файл найден, то процедуры FindFirst и FindNext возвращают 0 (зеро). 

Но приведенный выше способ находит файлы лишь в том каталоге, который задан переменной Path:String. Мне кажется, этого недостаточно для решения большей части поисковых проблем, поэтому стоит написать алгоритм поиска файлов в каждой найденной директории.

У меня расширенная процедура поиска выглядит вот так:

procedure ffind(cat:string); //каталог, откуда начать поиск
var sea:TSearchRec;
res:integer; //результат поиска (0 или нет)
begin
res:=FindFirst(cat+'*.*',faAnyFile,sea); //ищем первый файл
res:=findNext(sea);//ищем следующий файл
While res=0 do
begin
if (Sea.Attr=faDirectory) and ((Sea.Name='.')or(Sea.Name='..')) then//чтобы не было файлов . и..
begin
Res:=FindNext(sea);
Continue;//продолжаем цикл
end;

if (Sea.Attr=faDirectory) then//если нашли директорию, то ищем файлы в ней
begin
Ffind(cat+Sea.Name+'');//рекурсивно вызываем нашу процедуру
Res:=FindNext(Sea);//ищем след. файл
Continue;//продолжаем цикл
end;
form1.ListBox1.Items.Add(Sea.Name);//добавляем в Listbox:Tlistbox имя файла
Res:=FindNext(Sea);//ищем след. файл
end;
FindClose(Sea);//освобождаем пересенную поиска
end;

Здесь была использована процедура FindClose(var sea: TsearchRec);  она необходима для освобождения поисковой переменной. В следующих примерах ее я использовать не буду, но Вы имейте ее в виду!!!

    procedure TForm1.Button2Click(Sender: TObject);
    begin
        WinExec(pchar(listbox1.Items[listbox1.itemindex]),sw_show);
    end;