Dateien Suchen nach Endung?

[Flom]

Hallo,
Ich möchte nach bestimmten Dateien Suchen für ein Programm aber das stürzt immer wieder ab nur wieso ?
Ich habe folgende Prozeduren...

Zur Suche:

Delphi-Quellcode:

procedure TForm1.SucheDir(ext:Str3; pfad:String);
var sr:TSearchRec;
    r:integer;
begin
  r:=FindFirst(pfad+'\*.*',faAnyFile,sr);
  while r=0 do
  begin
    if Copy(sr.name,1,1)<>'.' then (*. und .. in Verzeichznissen ignorieren *)
    begin
      if (sr.attr<>0) and (faDirectory<>0) then (* Verzeichnis gefunden *)
        SucheDir(ext,pfad+'\'+sr.name)
      else (* Datei: ist die Erweiterung ok? dann anzeigen *)
        if System.Copy(sr.name, Pos('.',sr.name),4)='.'+ext then
          ListBox1.Items.Add(pfad+'\'+sr.name);
    end;
    Application.ProcessMessages;
    r:=FindNext(sr);
  end;
  FindClose(sr);
end;

Button 1:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Length(Edit1.Text) > 3 then
  begin
    ShowMessage('Bitte maximal 3 Zeichen für die Erweiterung eingeben!');
    exit;
  end;
  Button1.Enabled:=false;
  ListBox1.Clear;
  SucheDir(Edit1.Text,DriveComboBox1.Drive+':');
  Button1.Enabled:=true;
end;