Учитывать вложенные файлы в папки (Delphi)

Добрый вечер Товарищи. Подскажите такую функцию в Delphi.

Суть в следующем:
Есть программа которая ищет файлы в папке и вносит изменения в них, но она не учитывает вложенные папки.

Что тут прописать что бы она учитывала вложенные папки ?:

Code:

procedure Tfrm_Main.cb_SubfolderClick(Sender: TObject);
begin
 
end;

 

Code:

type
  PVariable = ^TVariable;
  TVariable = class
      s_rec:TSearchRec;
  end;
...
var
ff:PVariable;
Founded:integer;
...
begin
new(ff);
  ff^:=TVariable.create;

Founded:= FindFirst('C:\*',faAnyFile,ff.s_rec);
  while Founded=0 do
    begin
...
If (ff.s_rec.Attr and faDirectory)=faDirectory
      Then begin
            Find_File(directory+ff.s_rec.Name+'\');
            Founded:=FindNext(ff.s_rec);
            Continue;
           end;
       Founded:=FindNext(ff.s_rec);
    end;
{$WARNINGS OFF}
 FindClose(ff.s_rec.FindHandle);
{$WARNINGS ON}
 ff^.Free;
 Dispose(ff);