Sczytywanie plikow w katalogu

Potrzebuje sprawdzić katalog w poszukiwaniu plików typu jpg i wypiac ich liste w ComboBox-e .Używam do tego takiej procedurki:

procedure TprzedstawicielForm.FormCreate(Sender: TObject);
var sr : TSearchRec;
FileAttrs : Integer;
begin
ComboBox1.ItemIndex:= 0;
if findFirst(ExtractFilePath(application.exename)+'dane*.jpg',faAnyFile,sr) = 0 then
begin
repeat
if (sr.Attr and FileAttrs) = sr.Attr then
begin
ComboBox1.ItemIndex:= ComboBox1.ItemIndex + 1;
ComboBox1.Items.Add(sr.Name);
end;
until FindNext(sr) 0;
FindClose(sr);
end;
end;

Niestety. To niedziła. niewiem dlaczego. Jak odwołam się do głownego katalogu(c:*.*) to wypisze mi wszystkie katalogi, mimo że podana wartośc jest faAnyFile, natomiast umieszczonych tam plików jpg nie widzi
Co na to poradzic? :-(

Musisz sprawdzać czy znaleziony plik nie jest katalogiem i dopiero wtedy patrzyć dalej :)

Heh mi tak działa :)