Lauftext arbeitet nicht korrekt

[Nils_13]

Ich habe keinen Fehler gefunden, vielleicht findet ihr ja einen:

Delphi-Quellcode:

procedure TfrmMain.AddFiles(files : Array of String);
var
  len : integer;
  i   : integer;
begin
  len := Length(fFiles);
  SetLength(fFiles, len + Length(files));
  for i := 0 to pred(length(files)) do
  begin
    fFiles[len+i] := ReadID3Tag(files[i]);
  end;
  UpdateListBox; 
end;

procedure TfrmMain.UpdateListBox;
var
  i : integer;
begin
  lbList.Items.BeginUpdate;
  lbList.Clear;
  for i := 0 to pred(length(fFiles)) do
  begin
    lbList.Items.Add(trim(fFiles[i].Artist) + ' - ' + trim(fFiles[i].Titel));
  end;
  lbList.Items.EndUpdate;
end;