procurar arquivos usando Delphi

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Dialogs, Vcl.ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    FileOpenDialog1: TFileOpenDialog;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function FindFileInSubFolders(const FolderName, FileName: string): Boolean;
    function CountFolders(const FolderName: string): Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.FindFileInSubFolders(const FolderName, FileName: string): Boolean;
var
  SearchRec: TSearchRec;
begin
  if FindFirst(FolderName + FileName + '.*', faAnyFile, SearchRec) = 0 then
  begin
    Result := True;
    FindClose(SearchRec);
  end
  else if FindFirst(FolderName + '*.*', faDirectory, SearchRec) = 0 then
  begin
    Result := False;
    repeat
      if ((SearchRec.Attr and faDirectory) <> 0)  and (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
      begin
        ProgressBar1.Position := ProgressBar1.Position + 1;
        Application.ProcessMessages;
        if FindFileInSubFolders(FolderName + SearchRec.Name + '\', FileName) then
        begin
          Result := True;
          Break;
        end;
      end;
    until FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
  end
  else
    Result := False;
end;

function TForm1.CountFolders(const FolderName: string): Integer;
var
  SearchRec: TSearchRec;
begin
  Result := 0;
  if FindFirst(FolderName + '*.*', faDirectory, SearchRec) = 0 then
  begin
    repeat
      if ((SearchRec.Attr and faDirectory) <> 0)  and (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
        Inc(Result);
    until FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  FileName, FolderName: string;
  Found: Boolean;
begin
  FileName := Edit1.Text;
  if FileOpenDialog1.Execute then
  begin
    FolderName := ExtractFilePath(FileOpenDialog1.FileName);
    ProgressBar1.Max := CountFolders(FolderName);
    ProgressBar1.Position := 0;
    Found := FindFileInSubFolders(FolderName, FileName);
    if Found then
      ShowMessage('O arquivo ' + FileName + ' foi encontrado na pasta selecionada ou em suas subpastas.')
    else
      ShowMessage('O arquivo ' + FileName + ' não foi encontrado na pasta selecionada nem em suas subpastas.');
  end;
end;

end.