FindNext findet nur jede 2. Datei ?!?

[Bastler]

Hallo;

Ich habe Folgenden Code:

Delphi-Quellcode:

if SelectDirectory('Wähle das Verzeichnis','',ordner) then
  begin
  FindFirst(ordner+'\*.JPG', faAnyFile, sr);
  liste.Add(sr.Name);
  repeat
    begin
    if FindNext(sr) = 0 then;
    liste.Add(sr.Name);
    end;
  until FindNext(sr) <> 0;
  liste.Add(sr.Name);
  FindClose(sr);
  end;

Nur in der Liste (liste) steht nachher nur jede 2. Datei, wenn ich 72 Bilder in dem Ordner hab sind nachher nur 36 gelistet...

Kann mir wer erklären warum?