die erklärung ist einfach. Du rufst 2 mal FindNext auf.
Zudem solltest du auch das Ergebnis von FindFirst auswerten. Und FindClose brauchst du nur auswerten wenn FindFirst erfolgreich war.
Delphi-Quellcode:
if (FindFirst(...) = 0) then
begin
repeat
//do anything
until FindNext(...) <> 0;
FindClose(...);
end;