Alle dateien eines ordners anzeigen

[Pseudemys Nelsoni]

hoi, ich habe in meinem mp3 ordner ca 4500mp3 dateien...ich bekomm aber irgendwie nur 1979 in meiner listbox angezeigt mit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  srec: TSearchRec;
  i: integer;
begin
  if FindFirst('D:\shared\mp3\*.*', 0, srec) = 0 then
  begin
    ListBox1.Items.Add(srec.Name);
    inc(i);
    label1.Caption := IntToStr(i);
    Repeat
      FindNExt(srec);
      ListBox1.Items.Add(srec.Name);
      Inc(i);

    until findnext(srec) <> 0;
  end;
  label1.Caption := IntToStr(i);
  FindClose(srec);
end;

per label will ich mir dann auch noch anzeigen wieviele gefunden wurden (inc(i))... aber irgendwie werden da "4363234" als ergebnis angezeigt...wie kann das sein?