Delphi JEDI JvSearchFiles

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    procedure FindFile(Sender: TObject; const AName: String);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  JvSearchFiles;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Clear;
  with TJvSearchFiles.Create(nil) do
  begin
    Files.Clear;
    Directories.Clear;
    DirOption := doIncludeSubDirs;
    Options := Options + [soOwnerData];
    FileParams.FileMasks.Text := '*.PAS';
    FileParams.SearchTypes := [stFileMask];
    RootDirectory := 'C:\JVCL333';
    OnFindFile := FindFile;
    Search;
    Free;
  end;
end;

procedure TForm1.FindFile(Sender: TObject;
  const AName: String);
begin
  Memo1.Lines.Add(AName);
end;