Ordnernamen auslesen

[BullsEye]

So, ich hab jetzt folgenden Code um Ordnernamen auszulesen.

Delphi-Quellcode:

procedure ListSubDirs(sDir: string; const sList: TStrings);
var Rec: TSearchRec;
begin
  sList.BeginUpdate;
  try
  //  sList.Clear;
    if FindFirst(IncludeTrailingPathDelimiter(sDir) + '*.*', faDirectory or faReadOnly or faHidden or faArchive, Rec) = 0 then
    begin
      repeat
        if (((Rec.Attr and faDirectory) = faDirectory) and (Rec.Name <> '.') and (Rec.Name <> '..')) then sList.Add(Rec.Name);
      until FindNext(Rec) <> 0;
      SysUtils.FindClose(Rec);
    end;
  finally
    sList.EndUpdate;
  end;
end;

Allerdings werden keine Unterordner mit ausgelesen (Das bissel umständlich). Was ich jetzt aber möchte, ist das nur die Ordnernamen ausgelesen werden, in der eine Datei von einem bestimmten Dateityp ist. (BSP: .txt , .doc, .rtf etc)

EDIT: Die procedure ist in einer DLL und wird zur Laufzeit