Ale teď již k vlastnímu příkladu.

Nejprve umístěte na formulář dva Editboxy (jeden pro adresář a druhý pro masku), jedno tlačítko a jeden ListBox. Vlastní zdrojový kód se bude skládat ze dvou procedur:
procedure Najdi(mask:string);
var
search:TSearchRec;
verz:string;
such:string;
begin
such:=ExtractFileName(mask);
verz:=ExtractFilePath(mask);
if verz[length(verz)]<>'\' then verz:=verz+'\';
if FindFirst(mask,$23,search)=0 then
begin
repeat
form1.ListBox1.Items.Add(verz+search.Name);
Application.ProcessMessages;
until FindNext(search)<>0;
end;
if FindFirst(verz+'*.*',fadirectory,search)=0 then
begin
repeat
if ((search.Attr and fadirectory)=fadirectory) and (search.name[1]<>'.') then
begin
Najdi(verz+search.name+'\'+such);
end;
until FindNext(search) <>0;
FindClose(search);
end;
end;