Seltsamkeit bei FindFirst, FindNext

[Thunderchild]

Warum findet folgender Code auch Dateien, nicht nur Verzeichnisse?

Delphi-Quellcode:

var i:integer; attribs:tSearchRecord; pfad:string;
begin
  // anderer Code
  i:=findfirst(pfad,$10,attribs); // Verzeichnisse suchen
  while (i=0) and (fm.aTest.tag=1) do begin // fm.aTest.tag=0 bedeutet Abbruch
    if ((attribs.name<>'.') and (attribs.name<>'..')) then begin
      application.processMessages;
      slDirDirs.Add(pfad+attribs.Name+'\'); inc(cDirs); // Verzeichnis in StringList speichern
    end;
    i:=findnext(attribs)
  end;
  findclose(attribs);

Dank von Frank