Volltextsuche mit Delphi

[Balosh]

Mhh Ok habe jetzt die Schleifen abgeändert aber nun bringt er mir kein Ergebnis mehr.

Code:

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

begin
  if FindFirst (Path + FileName, faAnyFile - faDirectory, Rec) = 0 then
  if Checkbox1.Checked = true then
  begin
    Path := IncludeTrailingBackSlash(PathName);
    try
      repeat
       if ((Rec.attr and faDirectory) = faDirectory) then
             FileSearch(Path, Rec.Name);
          until FindNext(Rec) <> 0;
    finally
      FindClose (Rec);
    end;
  end else begin
    Path := IncludeTrailingBackslash(PathName);
    begin
      try
        repeat
          Listbox1.Items.Add(Path + Rec.Name);
        until FindNext (Rec) <> 0;
      finally
         FindClose (Rec);
      end;
    end;
  end;
end;

Hab ich da wieder ein Logikfehler drin und ich sehe ihn nicht bzw. einen Anfänger Fehler?