Volltextsuche mit Delphi

[Balosh]

Habe nun die Checkbox mit eingebaut aber wenn ich das Programm ausführe und die Checkbox markiere kommt ein Speicher Fehler:

=>Erste Gelegenheit für Exception bei $77060FB2. Exception-Klasse $C0000005 mit Meldung 'access violation at 0x77060fb2: write of address 0x74e4ddf5'. Prozess Suche.exe (5336)<=

ich habe keine Ahnung was den Fehler verursacht.

Hier auch mal der geänderte Code mit der Checkbox:

Code:

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

begin
  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);
    if FindFirst (Path + FileName, faAnyFile - faDirectory, Rec) = 0 then
    begin
      try
        repeat
          Listbox1.Items.Add(Path + Rec.Name);
        until FindNext (Rec) <> 0;
      finally
         FindClose (Rec);
      end;
    end;
  end;
end;