DateiAttribute aus ListBox auslesen

[Gregor00]

also irgentwie klappt das doch noch nicht so ganz... muss nochmal einen schritt zurück gehen: das programm soll alle Unterordner eines vorher vorgegebenen Pfades einer bestimmten Endung anzeigen
Der volgende Quelltext zeigt wie ich es versucht habe, es klappt jedoch nicht (:

Delphi-Quellcode:

procedure TForm1.Suche (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
  begin
    If (sr.Attr <> 0) and (faDirectory <> 0) then
      begin
    Suche(ext, Edit2.Text + '\' + sr.Name);
    ListBox2.Items.Add(pfad + '\' + sr.Name);
    end
    else
   //  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;

Edit1 gibt die Dateiendung an (z.B. TXT)
Edit2 den Pfad
ListBox1 soll alle gefundenen Dateien aufführen,
ListBox2 alle durchsuchten/gefundenen ordner



ein Klick auf Button1 startet den Suchvorgang:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin

Button1.Enabled:= False;
ListBox1.Clear;
ListBox2.Clear;
Suche(Edit1.Text, Edit2.text);
Button1.Enabled:= True;

end;

ich hoffe ihr könnt mir helfen, jab schon alles mögliche versucht

thx
gregor