Volltextsuche mit Delphi

[Balosh]

Code:

procedure TMainSuche.FileSearch(const PathName, FileName: string);
var Rec : TSearchRec;
    Path : string;

begin
  Path := IncludeTrailingBackSlash(PathName);
  try
    if FindFirst (Path + FileName, faAnyFile, Rec) = 0 then
    begin 
      repeat 
        if ((Rec.attr and faDirectory) = faDirectory) then
        begin
          if Checkbox1.Checked then
            FileSearch(Path, Rec.Name)
        end
        else 
          Listbox1.Items.Add(Path + Rec.Name); 

      until FindNext(Rec) <> 0;
  finally
     FindClose (Rec);
  end;
end;

So bin ich wieder am Anfang und er sucht nur Dateien im Ordner, er soll aber wenn die Checkbox aktiviert ist auch die Unterordner mit einbeziehen.